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informatica 


HARDWARE & SOFTWARE 
HOUSE 


J 


HOTLINE 

linea telefonica dedicata alla 
risoluzione dei problemi dei clienti 
Chiamando il numero telefonico 
riservato che troverete sulla 
cartolina garanzia acclusa ai 
programmi, nceverete tutte le 
informazioni che vi necessitano 


UPDATE 

servizio di aggiornamento continuo 
dei programmi acquistati. 

Ogni modifica ai programmi 
realizzati dalla Leoni Informatica 
sari fornita agli utenti degli stessi 


GARANZIA 

tutti i programmi Leoni Informatica 
sono coperti da garanzia a Vita 
contro guasti di origine. 


COMMODORE 64- SOFTWARE 


SOFTWARE PER COMMODORE 64 E PLUS/4 Programmi in configuratone base (•) IVA esclusa 


Cod 

Descrizione 

Prezzo 

Cod 

Oescn/ione 

Prezzo 



PERSONALI 



904b 

Ammortamento Mutui 

60 990 

9049/T 

Totopius 

109 900 

•OSO' T 

Totocalcio a sviluppo colonnare 

SO 990 

9051/T 

Gestione de« Conti O casa 

100 900 

9058/T 

Calcolo dell equo canone 

80 990 

9055/T 

Impanamo il BASIC 

1M 999 

0059/T 

Modello 749 

190006 

0063 

Cento programmi BASIC 

80 »J 

9966 

Conto corremo 

'90 990 

0091/T 

Rubrica telefonica 

100 wc 

9176 

Qary 64 (Commodore) 

95990 

0174/T 

Corso 9 Dattilografia 

80 900 



GESTIONI GENERALI 



9947 

Anagrafiche 

159 990 

0056 

D'cmaraz-one 1 VA 

60 993 

9966/T 

Fido Clienti 

»99 990 

0067 

Piano de' Coni. (cIVtor/gen) 

100 993 

9966 

Appuntamenti 

100 990 

0071 

Ordir» (cWfon 

199 993 

9999 

Mailing List (cordino alfabetico cap prò» ) 

•90 900 

0094 

Schedo 4890 car (c*/for;rapp /az etc ) 

193 993 

9996 

Scheda 4609 car agganciata ai Mailing 

'59 000 

0097 

Super Mail (5 chiavi accesso, nordr» J 

189 993 

9116 

Scadenziario effetti (nc bancone traile, etc ) 

'00 909 

0120 

Contabilità fatture (Iva. impon etc ) 

190 993 

9121 

Contatwità Sempkce (Tratte/Fatt /Conti/etc ■ 

259 000 

0160 

Bolle e Fatture 

290 993 

9125 

Contabilità Generale (13? colonne» 

309 000 






GESTIONI SPECIFICHE 


9045 

Agenti e Rappresentanti 

150 900 

•040 

Scadenz>ar>o premi e polizze 

159 993 

9164 

Agenzie Immoblian 

150 000 

0986 

Librerie e biblioteche 

120 993 

9148 

Studi Ottici 

200 900 

0151 

Farmacie 

399 990 

9149 

Studi Dentistici 

200 990 

9152 

Studi Medici 

299 993 

9131 

Motel e Pensioni 

280 900 

9132 

Parrucchien 

280 993 

9133 

Gommisti 

280 900 

9134 

Ckjbs Nautici 

280 993 

9135 

Officine 

280 900 

9171 

Ristoranti 

280 993 

9170 

Tavola Calda 

280 900 

9172 

Lavanderie 

280 993 

9175 

Condominio Ne** (132 colonne» 

490 900 






GESTIONE TESTI 



9190 

Hes Wnte* 

79 900 

9191 

Word Processor «1 

190 999 

• 192 

Bank Street Wnier 

70 900 

9319 

Easy Scnpt/T (Commodore) 

75 999 



TECNICI 



0136 

Legge 373 (calcolo degii isolamenti termici» 

100 900 

0140 

ingegneria civile 1 (calcoli strutt ) 

190 990 

• 141 

Ingegneria civile « (trav intelaiale» 

190'900 

0404 

Computo metrico 

299 990 

•499 

Diagnostica C64 

40 900 

0322 

Doctor 64 

90 99/ 



MAGAZZINI 



• 142 

Magazzino e Fatturazione semplici 

100 909 

0143 

Magazzino Grossisti (2599 ad ) 

280 900 

• 144 

Magazzino e Fatturazione agganciati 

299'980 

0158 

Magazzino Dettaglio (2599 ad » 

280 000 

• 146 

Magazzino codice aftanumenco (600 art 1 

200 900 

0159 

Magazzino Taglia/Coi (2590 art ) 

280 900 



LINGUAGGI 4 UTILITIES 


9162/T 

Screen Grafi* (Abacusi 

65 090 

0163 

Copia Disco singolo 

59 999 

9964 

Petspeed Compilar (Commodore) 

86 900 

0165/T 

Zoom 

79 990 

•167 

Simon s Basic (Commodore» 

85 990 

0168/T 

Turbo Tape 

59 990 

9177 

Puoi (ImguaggK» 

70 900 

0178 

Ultra Base 

125900 

9179 

Comp/Scompactor 

50 009 

0193/C 

Base 4 9 

89 093 

0194 

Spnte Generator 

70 990 

9195 

Assembler 

80 999 

9196 

SAM (Tronim 

100 900 

0197 

G-Pascal 

95 099 

9196 

Forih 64 (Commodore) 

95 990 

0199 

Tot 64 

85 990 

9299 

Master (Commodore» 

145000 

0291/C 

Scheda CP/M (Commodore) 

125 093 

9333 

Clone machine 

109 000 

033* 

Unguard 

290 990 

9335 

Fast Copy 4 5 

100 990 

0336 

Music Composer 

150 993 

9337 

Basic Programm Generator 

250 000 

0338 

Copy F4«s 

80 990 

9329 

The MANAGER 84 

190 000 

0321 

Austro Compilatore 

89 099 

•210 

Lite Pen (incluso software» 

130 900 






GESTIONE DATI 



• 157 

Easy Caie 

125 930 

0205 

Super Base 

175909 

9296 

Magic Desk (Commodore) 

75 990 

9207 

Koala Joystick 

190 999 

0299 

Data Log 

129 900 

0229 

Easy Cale Tape 

125 000 

9490 

Stock Control 

129 090 

049i 

Easy Labei 

120 000 


N 8 (*) Per configurazione base si intende Commodore 64, Floppy 1541. Stampante Commodore a 80 colonne 
I codici berrai' T sono disponibili anche su cassetta queei barrati C sono Cartndge 
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personal dos -— 


Questo programmo vi permetterà di cambio- 
re a vostro piacimento i comandi del DOS. Po 
trete usare tutti i comandi che vorrete con una 
sola limitazione di spazio: la tabella completa 
dei comandi DOS non dovrà superare i 133 ca¬ 
ratteri. Nel programma la lunghezza di ciascun 
comando viene limitata a 9 caratteri e confron¬ 
tata continuamente col numero di caratteri an¬ 
cora disponibili. Abbiamo anche interdetto l'uso 
di spazi all'interno di un comando DOS per 


********************** 

* * 

* 

PROGRAMMA PER 

♦ 

* 

MODIFICARE I 

* 

* 

* 

COMANDI DEL DOS 

* 

* 


********************** 


20 

DIM N*(28>: REM 

NOME FINALE 

30 

DIM N0*(28): REM 
LE 

NOME INIZIA 

40 

AB = 43139: REM 

I ALE 

TABELLA INIZ 

50 

NC = 1 


60 

MC = 133 


70 

NO = 1 


80 

HOME 


90 

REM ********************* 


* LETTURA DELLA * 

* TABELLA NEL DOS * 
********************* 


100 FOR N = 1 TO 28 
110 READ NOS(N) 

120 C = PEEK (AB + NO 
130 IF C > 128 THEN 150 
140 C* = C* ♦ CHR* <C)sNC = NC ♦ 
ls GOTO 120 

150 N*<N> = C* + CHR* <C - 128) 

160 C$> = ■ H :NC = NC + 1 
170 NEXT N 

180 REM ********************* 

* SCRITTURA DEI * 

* NOMI SULLO SCH. * 

********************* 

190 TEXT : HOME 
200 FOR I = 1 TO 14 
210 VTAB 3 4-1: PRINT NO*( I ) ; TAB< 
10)jN*»I); TAB< 19);"! 


che ciò renderebbe inutilizzabile il comando 
stesso. Se infatti scrivete “CAT ALOG'' sul vo¬ 
stro schermo, il DOS confronterà solo lo paro¬ 
la “CAT" con quelle contenute nella sua ta¬ 
bella di comandi. 

Se infine desiderate creare un dischetto con vo¬ 
stro DOS personale sarà sufficiente mizializzare 
(col comando INIT) un nuovo dischetto subito 
dopo avere cambiato la tabella dei comandi 
DOS. 


220 VTAB 3+1: HTAB 22: PRINT N 
0*(I ♦ 14); TAB< 32>;N*(I + 
14) 

230 NEXT I 

240 REM ********************* 

* MENU * 

********************* 

250 VTAB 19: PRINT "BATTERE —> 
PER ANDARE AVANTI" 

260 PRINT M <— PER TORNA 

RE INDIETRO" 

270 PRINT " ESC PER MODIF 

ICAPE UN ORDINE" 

280 PRINT " F PER CHIUD 

ERE IL PROGRAMMA" 

290 INVERSE : FLASH : GOSUB 690: 

NORMAL * 

300 REM ********************* 

* ATTESA DI UN * 

* CARATTERE * 


********************* 


310 

C = PEEK ( - 16384): 

IF C 

< 


128 THEN 310 



320 

POKE - 16368,0 



330 

REM TEST SE ESCAPE 



340 

IF C = 155 THEN 520 



350 

REM TEST SI —> 



360 

IF C = 149 THEN GOSUB 690 

:N 


0 = NO + 14 * (NO < 

> 28) 

- 


27 * (NO > 14): GOTO 

290 


370 

REM TEST SI < — 



380 

IF C = 136 THEN GOSUB 690 

:N 


0 = NO -14# (NO < 

> 1 ) 

♦ 


27 * (NO < 15): GOTO 

290 


390 

REM TEST SI F 



400 

IF C - 128 < > ASC 

290 

( "F" ) 

THEN 

410 

REM ********************* 



* FINE PROGRAMMA * 


********************* 
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420 HOME : UTAB 13: PRINT " MO 
DI FICA DELLA TABELLA DEL DO 

S" 

430 NC = 1 

440 FOR I = 1 TO 28 

450 FOR J = 1 TO LEM <Nt<!>> 

460 POKE AB ♦ NC, ASC ( MIO* (N* 

< I ) , J,1)) 

470 NC = NC ♦ 1 
480 NEXT J 

490 POKE AB ♦ NC - 1, ASC < RIGHT* 
(N*(I>,1>) ♦ 128 
500 NEXT I 
510 HOME : END 

520 REM ********************* 

* MODIFICA * 

* DI UN COMANDO « 

********************* 

530 UTAB 18: CALL - 958: PRINT 
: PRINT "MODIFICA DEL COMAND 
0 ";NO*<NO) 

540 CD = MC - NC ♦ LEN <N*<NO>>: 

IF CD > 9 THEN CD = 9 
550 PRINT CD;" CARATTERI DISPONI 
BILI ■ 

560 UTAB 21 : INPUT N* 

570 IF N* = ■" THEN N* = NO*(NO) 

580 IF LEN (N*> > 9 THEN 520 
590 IF NC - LEN (N*(NO>> ♦ LEN 

<N*> > MC THEN PRINT GOTO 

520 


600 OK = 1 : FOR I = 1 TO LEN (NS 
) :BL* = MID* (N*,I,1):OK = 

OK * <BL* < > " ")! NEXT I : 

IF OK = 0 THEN 520 
610 NC = NC - LEN <N*<NO>> ♦ LEN 
(NS) 

620 N*(NO) = N*i GOTO 180 
630 REM ******************** 

* TABELLA DEI « 

* COMANDI ORIGINALI» 
******************** 


640 DATA M INIT","LOAD","SAUE","R 
UN","CHAIN","DELETE" 

650 DATA "LOCK","UNLOCK","CLOSE" 
,"READ","EXEC","WRITE" 

660 DATA "POSITION","OPEN","APPE 
NO" , "RENAME*' , "CATALOG" 

670 DATA "MON","NOMON","PR#","IN 
,"MAXFILES","F P" 

680 DATA "INT","BSAUE","BLOAD"," 
BRUN","UERIFY" 

690 REM ******************** 

» POSIZIONAMENTO * 

* SULLO SCHERMO * 
******************** 

700 REM 

710 UTAB 3 ♦ NO - 14 * (NO > 14) 

720 HTAB 10 ♦ 22 * (NO > 14) 

730 PRINT N*<NO): RETURN 


Catalog su etichetta 




« ai 


>kz 





con stampante 


% 

£ ora di dire BASTA al disordine che regna nel¬ 
l'archivio dei vostri programmi! 

D ora in poi il vostro computer, leggendo il ca¬ 
talog di ogni dischetto, ne stamperà la relativa- 


5 SL = 1 : REM SLOT STAMPANTE 
10 DIM AA*(100) 

100 GOTO 5000 

200 REM - CARICA ROUTINE IN L 

INGUAGGI0 MACCHINA PER LEGGE 
RE IL CATALOG E PORLO NEL UE 
TTORE AA* - 

205 HOME : HTAB 10: UTAB 10: FLASH 
: PRINT "UN MOMENTO PREGO": 
NORMAL 


etichetta evitandovi cosi mutili perdite di tem¬ 
po e ricerche affannose. Ogni dischetto verrà 
inoltre contraddistinto dal nome che voi stessi 
sceglierete quando il computer ve lo chiederà. 


210 FOR I = 1 TO 154 
220 READ A 

230 POKE 768 ♦ I - 1,A 
240 CK = CK ♦ A 
250 NEXT I 

260 IF CK < > 18300 THEN PRINT 

"ERRORE NELLE LINEE 'DATA'." 
: END 
265 HOME 
270 RETURN 
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500 REM - STAMPA IL CATALOG - 

502 INPUT "NOME DA DARE AL DISCH 
ETT0? ";ND* 

503 INPUT "POSIZIONARE ETICHETTE 

SU STAMPANTE <RET>";AA* 

505 C = PEEK <254) - 1 

506 CTR = 0 

507 PRINT TAB< <34 - LEN <NDS> 

) / 2) — M ;ND*;" 

510 FOR I = 4 TO C 

530 PRINT MIO* <AA*<I>,8,8>;" “ 

535 CTR = CTR ♦ ls IF CTR = 4 THEN 
CTR = 0: PRINT 

540 NEXT I 

550 RETURN 

5000 REM -MA IN- 

5010 GOSUB 200: REM CARICA ROUT 
INE LM 

5020 CALL 763: REM LEGGI IL CAT 
ALOG 

5022 PRINT CHR* <4)“CATALOG" 

5023 PRW 0 

5024 CALL 1002 

5030 GOSUB 500: REM STAMPA IL C 
ATALOG 

5040 END 

999? REM CIFRA DI CONTROLLO 133 
00 

10000 DATA 169,96,141,52,174,16 
9,0,133,254.133 


10010 DATA 255.32,137,254,169,3 

8.133.54.169.3 

10020 DATA 133,55,32,234,3,16?, 
0,141,39,3 

10030 DATA 169,2,141,40,3,198,2 
55,96,141,0 

10040 DATA 2,238,39,3,230,255,2 
40,12,32,240 

10050 DATA 253,32,137,254,32,14 

7.254.76.234.3 

10060 DATA 201,141,208,227,174, 
39,3,202,32,57 

10070 DATA 213,173,39,3,32,82,2 

28.172.39.3 

10080 DATA 169,0,133,94,169,2,1 
33,95,136,177 

10090 DATA 94,145,113,152,208,2 
48,165,184,72,165 
10100 DATA 185,72,169,141,133,1 
84,169.3,133,185 

10110 DATA 32,227,223,104,133,1 
85,104,133,184,160 

10120 DATA 0,173,39,3,145,131,2 
00,165,113,145 

10130 DATA 131,200,165,114,145, 
131,230,254,76,25 

10140 DATA 3,32,65,65,36,40,226 
.40,50,53 

10150 DATA 52,41,41,58 






-Jfl* TI -99/4A 


J _M— 

>r 


Missile Mach 

Ixtended Basic 


La lexas Insti , ha progettato per il II 99 un 
consistente pacchetto di software didattico per 
l'incremento di un'utilizzazione scolastica del 
computer. Si tratta di programmi otvmamen 
te strutturati ma che hanno l'unico difetto di 
essere concepiti su moduli SSS e quindi di ave¬ 
re un prezzo troppo elevato per chi intendes 
se educare il proprio figlio attraverso lezioni 
computerizzate... 

bene; questo breve listato in Extended basic 
si rifa oppunto ai più attraenti figli di mamma 
Texsas. senza peraltro scomparire al loro con¬ 
fronto. 

Congegnato sull'apprendimento delle 4 opera 
zioni, il programma dopo aver appurato la vo¬ 
stra preferenza per addizioni, sottrazioni o al¬ 
tro vi darà modo di dimostrare la vostra pron¬ 


tezza di riflessi con un giochino del filone "In 
vader" 

Dovrete abbattere un disco volante in veloce 
avvicinamento, tenendo presente che i vostri 
missili avranno effetto soltanto se sparati da 
una posizione immediatamente vicina alla ri 
sposta esatta all'operazione indicata nella par¬ 
te superiore dello schermo. Inutile dire che non 
basta /'azzeccare il risultato dell'operazione a 
garantire l'esplosione dell'UFO. ma dovete an 
che calcolare velocità del proiettile, e relazio 
ne tra altitudine aliena e sua velocità di spo 
s tomento. 

Insomma un programma che ha qualcosa da 
insegnare anche ai più grandi, che avranno mo 
do di mangiarsi le unghie per ore con ' Missile 
Math". 
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1 00 ! * * * *‘MISSILE MATH***** 

110 ! TI-99 # EXTENDED BASIC 

120 DIM N0TE(1 4) ,DUR(1 4) : : GOSUB 
980 :: GOTO 170 

130 CALL KEY(0,K,ST) : : CALL KEY( 

1,KK,S): : IF ST-0 THEN CALL JOYS 
T(1,X,Y)ELSE X=(K = 83)-(K=68) : : Y 
=(K=69)-(K=88) 

140 RETURN 

150 FOR 1 = 1 TO L : : B$ =SEG$(E$ , 1 
,1):: DISPLAY AT(Y,X-I):B$ :: CA 
LL SOUND(-10,-6,4) : : NEXT I :: R 
ETURN 

160 FOR 1=1 TO 14 :: CALL SOUND( 
DUR(I),NOTE(I) ,3): : NEXT I : : RE 
TURN 

170 E$="MISSILE MATH" 

180 CALL CLEAR 
190 CALL SCREEN(5) 

200 Y=12 :: X=25 :: L=16 :: GOSU 
B 150 :: FOR T=1 TO 100 :: NEXT 
T 

210 GOSUB 160 :: FOR T=1 TO 300 
: : NEXT T 

220 FOR 1=16 TO 24 :: DISPLAY AT 
(12,25-1):B$ :: NEXT I :: FOR 1= 

2 TO 13 :: B$ = SEG$(E$,1,12): : DI 
SPLAY AT(12,1):B$ :: NEXT I 

230 GOSUB 840 

240 CALL CLEAR :: CALL SCREEN(3) 
:: PRINT "PER GIOCARE:": : : : PR 

INT "POSIZIONA IL CANNONE SULLA" 

: : :: PRINT "RISPOSTA CORRETTA 

E SPARA": : 

250 PRINT "ALL' 1 UFO CON LA BARRA 
O COL ": :"TASTÒ DEL JOYSTICK.": 

: : : : : PRINT "ATTENZIONE A NO 

N SPRECARE": :: PRINT "MUNIZIONI 

H . • • • 

• • • • • 

260 PRINT "FIRE O <ENTER> PER IN 
I ZIARE": : : 

270 GOSUB 130 :: IF (KK<>18)*(K< 
>13)THEN 270 

280 LEVEL=! :: SC,HIT,GUN=0 :: N 
p=3 :: PT(1)=25 :: PT(2)=10 :: P 
T(3)= 5 :: SPR=136 
290 CALL CLEAR :: CALL SCREEN(11 
):: DISPLAY AT(12,3):"PASSAGGIO 
AL LIVELLO";LEVEL :: GOSUB 160 : 
: FOR T=1 TO 100 :: NEXT T 
300 PB,SCL=0 

310 RANDOMIZE :: Y0=4 :: PF=5 :: 

A=INT(RND* 4+1)+4*(LEVEL-1) : : B= 
INT(RND*4*LEVEL+1 ) 

320 IF MENU = 1 THEN C=A+B ELSE C = 
A*B 

330 A$=STR$(A) : : B$=STR$(B) : : C$ 
=STR$(C) 

340 RANDOMIZE :: RP=INT(RND*4)+1 


350 IF RP=I THEN ANS=A : : A$=CHR 
$(63) 

360 IF RP=2 THEN ANS = B : : B$=CHR 
$ (63) 

370 IF (RP=3)+(RP=4)THEN ANS=C : 

: C$=CHR$(63) 

380 CALL CLEAR :: CALL SCREEN (15 

) 

390 D$=" + " :: IF MENU=2 THEN D 
$ = " z " 

400 DISPLAY AT(4,10):A$;D $ ;B$;" 

= " ;C$ 

410 FOR 1=1 TO NP :: CALL HCHAR( 

1,1*2+1,112):: NEXT I 
420 DISPLAY AT(1,17):"SCORE :";SC 
:: PB=PB+1 

430 IF ANS>90 THEN DEL=10 :: GOT 
O 460 

440 IF ANS>20 THEN DEL=5 :: GOTO 
460 

450 DEL=INT((ANS/10)+1) 

460 RANDOMIZE :: DT=INT(RND* 5)+1 

470 XI=256 : : X2 = l 
480 FOR 1 = 1 TO 5 : : CH(I)=ANS+(I 
-DT)*DEL :: LOK(I)=5*1-1 :: DISP 

LAY AT(2 4,LOK(I)) :STR$(CH(I)) ; : : 
NEXT I 

490 CALL SPRITE(#2,96,6,150,LOK( 
PF)*8+4) 

500 SHT=0 :: SP=14 :: FOR X0=Xl 
TO X2 STEP -DX :: CALL SPRITE(#1 
,128,SP,Y0*8,X0) : : SP=24-SP 
510 CALL SOUND(-1 0,2000,3) : : GOS 
UB 130 :: PF = PF+SGN(X): : PF=PF+( 
PF = 6)* 5-(PF = 0)* 5 :: CALL LOCATE( 
#2,150,LOK(PF)*8+4) : : GOSUB 130 

520 IF ((KK=18)+(K=32))*(SHT=0)T 
HEN CALL SPRITE(#3,124,2,150,LOK 
(PF)*8+4,-20,0) : : CALL SOUND(200 
,-6,3): : GUN=1 : : SHT=1 
530 CALL POSITION(#3,DR,DC) : : IF 
(DR<10)+(DR>192)THEN CALL DELSP 
RITE(#3) 

540 CALL COINC(#1,#3,15,C) : : IF 
C THEN GOSUB 740 
550 IF HIT=1 THEN X0=X2 
560 NEXT X0 :: IF HIT=1 THEN HIT 
= 0 : : GOTO 570 ELSE CALL DELSPRI 
TE (#3):: GUN=0 :: GOTO 590 
570 IF (SCL>=50)THEN LEVEL=LEVEL 
+ 1 :: CALL DELSPRITE(ALL) : : GOTO 

290 

580 CALL DELSPRITE(#1,#3) : : GOTO 
31 0 

590 Y0=Y0+4 

600 IF Y0<13 THEN CALL DELSPRITE 
(#1) : : GOTO 500 
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610 FOR X0=X1 TO X2 STEP -DX :: 
CALL LOCATE(#1,150,X0) 

620 CALL COINC(#1,#2,10,C) : : IF 
C THEN CALL DELSPRITE(#2) : : XO=X 
2 

630 NEXT XO 

640 FOR 1=3 TO 15 STEP 3 :: SPR= 
276-SPR :: CALL SPRITE(#1,SPR,1+ 
1,150,LOK(PF)*8+4) : : CALL SCREEN 
(I):: CALL SOUND ( - 10 + 1 * 10 ,- 5 , 3): 

: NEXT I 

650 CALL DELSPRITE(#1) 

660 CALL HCHAR(1,NP*2+1,42): : FO 
R 1=1 TO 30 STEP 3 :: FOR T=1 TO 
300 :: NEXT T :: CALL SOUND(10, 
220,1):: NEXT I :: CALL HCHAR(1, 
NP* 2 + 1,32) 

670 NP=NP-1 :: FOR T=1 TO 5 : : D 

ISPLAY AT(24,LOK(DT)):" C 

ALL SOUND(30,220,3) : : CALL SOUND 
(40,440,3):: DISPLAY AT(24,LOK(D 
T)-1):ANS; 

680 CALL SOUND(30,220,3) : : NEXT 
T 

690 E$="RIPROVACI !" :: X=25 :: 
Y=12 :: L=16 :: GOSUB 150 
700 E$="SO CHE PUOI FARCELA !!" 
:: X=26 :: L=22 :: Y=14 :: GOSUB 
1 50 

710 GOSUB 160 :: IF NP=0 THEN 72 
0 ELSE 310 

720 DISPLAY AT(16,6):"FINAL SCOR 
E ";SC :: DISPLAY AT(18,9):"RITE 
NTI?" :: DISPLAY AT(20,4):"(PREM 
I <FIRE> O -S-)" 

730 GOSUB 130 :: IF (KK<>18)*(K< 
>83)THEN 730 ELSE 230 
740 IF ANS=CH(PF)THEN CALL DELSP 
RITE(#3): : GOSUB 770 :: HIT=1 :: 
GOTO 760 

750 CALL COLORI#!,2): : CALL SOUN 
D(100,147,4,587,4,294,4,-1,3):: 
CALL COLOR(#1,14) 

760 GUN=0 : : RETURN 
770 FOR 1=10 TO 30 STEP 5 :: SPR 
=276-SPR :: CALL SCREEN(1/10+8): 
: CALL SOUND(-100,-6,1):: CALL S 
PRITE(#1,SPR,2+1/4,Y0*8,X0) : : NE 
XT I 

780 CALL SCREEN(15):: I=Y0/4 :: 
SC=SC+PT(I) : : SCL=SCL+PT(I): : DI 
SPLAY AT(14,9):PT(I);"POINTS" 

790 IF (SCL> = 50)*(SCL/PB> 20)THEN 
DISPLAY AT(16,7):"50 BONUS POIN 
TS" :: SC=SC+50 :: GOTO 820 
800 IF (SCL>=50)*(SCL/PB>10)THEN 
DISPLAY AT(16,7):"25 BONUS POIN 
TS" :: SC=SC+25 :: GOTO 820 
810 GOTO 830 


820 FOR 1=15 TO 3 STEP -1 :: CAL 

L SCREEN(I):: NEXT I :: FOR 1=3 
TO 15 :: CALL SCREEN(I):: NEXT I 
830 DISPLAY AT(1,23) :SC; : : FOR I 
=1 TO 350 :: NEXT I :: CALL DELS 
PRITE(ALL) : : RETURN 
840 CALL CLEAR :: CALL SCREEN( 1 4 
):: PRINT TAB(6);"MISSILE MATH: 

menu": : : : 

850 PRINT "SPOSTA LA -X- CON JOY 
STICK O": : 

860 PRINT "TASTI CON FRECCE E CO 
NFERMA ": : 

870 PRINT "LA SELEZIONE CON FIR 
E/ENTER": : 

880 PRINT "PER": : :: PRINT TAB( 

7);"ADDIZIONA";TAB(18);"MOLTIPL& 

II 

890 PRINT TAB(7)SOTTRARRE";TAB 
(1 8) ;"DIVIDERE": : : : 

900 PRINT "LENTO": : : : :: PRIN 

T "VELOCE": : 

910 FOR J=17 TO 21 STEP 4 :: FOR 
COL=l1 TO 13 :: CALL VCHAR(J,CO 
L,120,3) : : CALL VCHAR(J,COL+11,1 
20,3):: NEXT COL :: NEXT J 

920 FOR J=18 TO 22 STEP 4 :: CAL 
L HCHAR(J,12,32) : : CALL HCHAR(J, 
23,32): : NEXT J 

930 KHAR=122 :: PX=12 :: PY=18 : 

: MENU=1 :: DX=9 

940 CALL HCHAR(PY,PX,KHAR) : : GOS 
UB 130 :: KHAR=154-KHAR 
950 IF ((SGN(X)=0)*(SGN(Y)=0))TH 
EN 970 

960 CALL HCHAR(PY,PX,32): : IF (S 
GN(X)<>0)THEN MENU=3-MENU :: PX= 
35-PX ELSE PY=40-PY :: DX=27-DX 

970 IF (KK=18)+(K=l3)THEN RETURN 
ELSE 940 

980 CALL CHAR(120,RPT$("F",16),1 
12,"00001 8 3C7E7E18 3C" ,122,"814 22 
41818244281") 

990 CALL CHAR(96,"00000000030303 
030303030F3F3F1818"&RPT$("0",22) 
&"C0F0F06060") : : REM BASE 
1 000 CALL CHAR(12 4,RPT$("0", 1 1 )S 
RPT$("10",6)&RPT$("0",51 ) ) 

1010 CALL CHAR(136,"000020100000 
00280051030008"&RPT$("0",14)&"C4 
C000AC088"&RPT$("0",12)) 

1020 CALL CHAR(140,"001001000000 
08000100002"&RPT$("0",18)&"80040 
000000002000000000") 

1030 CALL CHAR(128,"000000000000 
1F7FFFE6E67F1F"&RPT$("0",18)&"F8 
FEFF6767FEF8000000") 
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1 040 CALL MAGNIFY ( 4 ) : : CALL COLO 

*(11,13,1) 

1050 FOR 1=1 TO 14 :: READ NOTE( 
I) ,DUR(I) : : NEXT I :: RETURN 
1060 DATA 392 f l00,392,100,392,10 
0,523,900,392,100,392,100,392,10 


0 

1070 DATA 523,100,466,100,440,10 
0,392,700,40000,100,392,360,523, 
600 

1080 RETURN 


* TI-99/4A 

Extendcd Basic 



Si è sempre detto che l'ontenoto degli ottuoh 
vedeogomes sio do considerarsi il flipper; io 
penso però che i vecchi Jockpot, le celeberri¬ 
me mocchmette “mongiasoldi" stono do con¬ 
siderarsi dello ' 'famiglio ' ' e forse con un mag¬ 
gior grado di anzianità dello stesso venerando 
flipper. 

È a questo tipo di macchine che questo listato 
in Extended basic si ispira. Il modo di giocare 
è semplicissimo: per effettuare ciascuna delle 
operazioni possibili (visualizzate sullo schermo), 
basterà premere la lettera iniziale del verbo ri¬ 
spettivo. 

Inizialmente vi si chiederà di inserire qualche 
gettone (ogni volta che premete T verranno 


immessi nella macchinetta altri 4 gettoni): do¬ 
podiché potrete iniziare il gioco: un avvincente 
gioco d'azzardo in cui potrete scegliere se te¬ 
ner buona per il giro successivo una delle figu¬ 
re apparse (semplicemente indicando il numero 
di finestrella corrispondente), azzardare il bot¬ 
tino vinto con il rischio di perderlo, ma anche 
di raddoppiarlo e oltre. Potrete anche sceglie¬ 
re di mettere da parte il tutto senza rischio: 
ogni volta che decidiate di smettere il compu¬ 
ter vi mostrerà la situazione di bilancio finale. 

Insomma un eccellente programma che vi ga¬ 
rantirà momenti di assoluto divertimento! (Soldi 
permettendo!) 


100 
no 
1 20 
130 


★ ★★★★★★★★★★★★★★★★★★★•È* 

** LAS VEGAS A GOGO ** 
********************** 

TI-99 EXTENDED BASIC 
140 CALL CLEAR :: RANDOMIZE 
150 DIM WF(13) ,R(2,13) ,JAC(13) :: 
JAC(5)=-1 :: JAC(6)=-1 :: JAC(7 


)=-l 

160 FOR W=1 TO 13 :: READ WF (VV 
) ,R(1 ,W) ,R(2,W) : : NEXT W 
170 DATA 110,0,0,116,0,0,115,0,0 
,1 09,0,0,1 06,8,50,105,8,40,11 4,7 
,30 

180 DATA 113,5,25,104,3,20,136,3 
,20,1 37,2,1 0,1 28,2,10,1 12,0,0 
190 DIM JPX(4),JPY(4),JF(4),JCC( 
4):: FOR JO=l TO 4 :: READ JPX(J 
O) ,JPY(JO) ,JF(JO) : : NEXT JO 
200 DATA 11,8,110,12,8,116,14,8, 
115,15,8,109 
210 NJ$=CHR$(1 38) 


220 DIM WPX ( 3 ) , WPY ( 3 ) , V ( 4 ) ,HW ( 3 
):: WPX(1)=11 :: WPX(2)=13 :: WP 

X {3)=15 :: FOR 1 = 1 TO 3 :: WPY(I 
)=10 : : NEXT I 

230 DIM HPX(3),HPY(3) ,HF$ (3) : : F 
OR 1 = 1 TO 3 :: HPX(I)=WPX(I): : H 
PY(I)=13 : : NEXT I 

240 Hi$=CHR$(107): : NH$=CHR$(108 
):: HH$=CHR$(96): : HO$=Hl$&HH$&H 
1$&HH$&Hl$ 

250 DIM GPX(4) ,GPY(4) ,GV(4) : : GP 
X ( 1 )-12 :: GPY(1)=1 

260 GPX(2)=27 :: GPY(2)=2 :: GPX 
(3)=22 :: GPY(3)=3 :: GPX(4)=17 
:: GPY(4)=2 

270 NJ=4 :: NH=0 :: NG=0 :: GW=0 
:: NI=0 :: NT=-1 
280 GOTO 1690 

290 DISPLAY AT(PLY,PLX) : SI $ ; : : C 
H = 0 : : FOR DE=1 TO 10 
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300 IF CH=0 THEN CALL KEY(0,GET, 
CH) 

310 NEXT DE :: DISPLAY AT(PLY,PL 
X) :S2$; : : IF CH=1 THEN RETURN 
320 FOR DE=1 TO 10 :: IF CH=0 TH 
EN CALL KEY(0,GET,CH) 

330 NEXT DE : : IF CH = 1 THEN RETU 
RN 

340 GOTO 290 

350 FOR AD=SGN(IN)TO IN STEP SGN 
(IN) 

360 DISPLAY AT(1,8):MO+AD; 

370 IF SGN(IN)>0 THEN 390 
380 CALL SOUND(-50,200,2) : : GOTO 
400 

390 FOR SO=500 TO 700 STEP 100 : 

: CALL SOUND(-50,SO,2) : : NEXT SO 

400 NEXT AD : : MO=MO + IN : : RETUR 
N 

410 DO=0 :: CALL HCHAR(2,3,32,7) 

420 FOR JO = l TO 4 : : CALL HCHAR( 
JPY(JO) ,JPX(JO)+2,JF(JO)) : : JCC( 
JO)=0 : : NEXT JO 
430 NJ=4 :: RETURN 

440 CALL HCHAR(24,3,32,28): : RET 
URN 

450 FOR TI = 1 TO 4 : : CALL HCHAR( 
4,3,32,JC) 

460 FOR C=1 TO JC :: CALL SOUND( 

-100,1 50 + 20*C,0): : DISPLAY AT(4, 

C):"J"; : : NEXT C 

470 NEXT TI : : RETURN 

480 CALL CHAR(96,"FFFFFFFFFFFFFF 

FF") 

490 CH$="0F0F0F0F0F0F0F0F" :: CA 
LL CHAR(97,CH$) 

500 CALL CHAR(60,CH$) 

510 CALL COLOR(9,6,1,10,2,16,11 , 
7,16,12,16,6,13,11,16,14,13,16) 

520 CALL CHAR(107,"FFFF181818181 
81 8") 

530 CALL CHAR(108,"FFFFFFFFFFFFF 
FFF" ) 

540 A$="l898FF3D3C3CE404" 

550 CALL CHAR(109,A$): : CALL CHA 
R(115,A$) 

560 A$ = " 1819FFBC3C3C2720" 

570 CALL CHAR(110,A$) : : CALL CHA 
R(116,A$) 

580 CALL CHAR(136,"02043C566A566 
A3C" ) 

590 CALL CHAR(114,"00006C7C7C381 
000") 

600 CALL CHAR(112,"0204387C7C7C3 
800") 


610 CALL CHAR(104,"0202OC3C78783 
000") 

620 CALL CHAR(128,"00406060703C1 
EOO") 

630 CALL CHAR(137,"02041C3C7C7C3 
800") 

640 CALL CHARPAT(36,A$) : : CALL C 
HAR(106,A$) 

650 CALL CHARPAT(63,A$): : CALL C 
HAR(120,A$) 

660 CALL CHAR(113,"081C3E7F3E1CO 
800") 

670 CALL CHAR(104,"081C2A772A080 
800") 

680 CALL CHAR(105,"0010387C7C103 
800") 

690 CALL CHAR(138,"0000000000000 
000") 

700 RETURN 

710 CALL CLEAR :: CALL SCREEN(12 

) 

720 CALL HCHAR(7,12,96,7) 

730 FOR 1=8 TO 12 :: CALL HCHAR ( 
1,11,96,9): : NEXT I 
740 CALL VCHAR (7,20,60) 

750 CALL VCHAR(8,20,97,4) 

760 CALL HCHAR(12,20,96) 

770 CALL HCHAR(13,12,96,7) 

780 FOR 1=14 TO 19 :: CALL HCHAR 

(1,13,96,5):: NEXT I 

790 CALL HCHAR(20,12,96,7) 

800 CALL HCHAR(21 ,11 ,96,9) 

810 CALL HCHAR (22,10,96,11) 

820 DISPLAY AT(1,1):"TOTALE: 0" 

830 DISPLAY AT(10,3):CHR$(112);" 
= 1 "; 

840 FOR W=1 2 TO 5 STEP -1 
850 DISPLAY AT(23-W,1):"-";RPT$ 
(CHR$ (WF(VV) ) ,2) ;"-=" ;R(1 ,W) ; 
860 DISPLAY AT(23-W,20):RPT$(CH 

R$ (WF(VV) ) ,3) ; " = " ; R ( 2 , W) ; 

870 IF JAC(VV)THEN DISPLAY AT(23 
- W, 27 ) : " +J" ; 

880 NEXT W : : RETURN 

890 NT=NT+1 :: IF WI>0 THEN HB=- 

1 :: WI=0 

900 FOR HO=l TO 3 : : HF$ (HO)=NH$ 

:: DISPLAY AT(HPY(HO),HPX(HO)): 
NH$; : : NEXT HO 
910 IF DO THEN 960 
920 FOR JO=l TO 4 :: IF JCC(JO)= 
0 THEN 950 

930 JCC(JO)=JCC(JO)-1 :: IF JCC( 

HO)>0 THEN 950 

940 NJ=NJ+1 :: CALL HCHAR(JPY(JO 
),JPX(JO)+2,JF(JO)) 

950 NEXT JO : : GOTO 970 
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960 DC=DC-1 :: IF DC=0 THEN GOSU 
B 41 0 

970 IF JA THEN DISPLAY AT(4,JC): 
" JOJC-1 :: IF JC = 0 THEN J 

A=0 

980 RETURN 

990 HB=-1 : : GOSUB 410 

1000 JA=0 :: CALL HCHAR(4,3,32,1 

5) 

1010 GOSUB 440 :: DISPLAY AT(24, 

1 ) :"GETTONI O FINISCI"; 

1 020 S1 $ = "GETTONI(I)" :: S2$=RPT 
$(" ",10): : PLX = 1 :: PLY=2 :: GO 

SUB 290 

1030 IF GET=ASC("G")THEN 1020 EL 
SE RETURN 

1040 DISPLAY AT(24,1):"GETTONI,T 
IENI,GIOCHI,FINISCI"; 

1 050 S1 $ =HO$ :: S2$=HF$ (1)&HHS&H 
F$(2)&HH$&HF$ (3) 

1060 PLX=11 :: PLY=13 :: GOSUB 2 

90 

1 070 IF GET<49 OR GET>51 THEN RE 
TURN ELSE HO=GET-48 
1080 NH=NH+1 :: IF HF$(HO)=NH$ T 
HEN HF$(HO)=Hl$ ELSE HF$(HO)=NH$ 

1090 GOTO 1050 

1100 GOSUB 440 :: DISPLAY AT(24, 
1):"GETTONI,GIOCHI O FINISCI"; 
1110 Si$=RPT$(CHR$(120) ,3) : : S2S 
=RPT$(CHR$(96) ,3) : : PLX = 12 :: PL 
Y=19 :: GOSUB 290 
1120 RETURN 

1130 GOSUB 440 :: IF NOT HB THEN 
DISPLAY AT(24,1):"TIENI, "; 

1140 DISPLAY AT(24,7)AZZARDI O 
RAGGRUPPI"; 

1150 GOTO 1110 

1160 FOR 1=7 TO 10 :: CALL HCHAR 
(1,20,32):: CALL HCHAR(1+1,20,60 
): : NEXT I 

1170 CALL SOUND(-4000,-7,29) 

1180 FOR 1 = 10 TO 7 STEP -1 : : CA 

LL HCHAR(1,20,60): : CALL HCHAR(I 
+ 1 ,20,97) : : NEXT I 
1190 FOR WD = 1 TO 3 : : IF HF$(WD) 
=NH$ THEN DISPLAY AT(WPY(WD),WPX 
(WD)):CHR$(138); 

1200 NEXT WD 

1210 FOR WD=1 TO 3 : : IF HF$(WD) 
=H1 $ THEN 1240 

1 220 FI = INT(RND* 100 +1) :: IF FI<5 
THEN IF JCC(FI)<>0 THEN V(WD)=1 
3 ELSE V(WD)=FI :: JCC(FI)=-1 :: 
GOTO 1240 

1230 V(WD)=5-(FI>7)-(FI>10)-(FI> 
13) - (FI>23) - (FI >36) - (DI >49) - (FI> 
68)-(FI>87) 


1240 FOR DE=2 TO 300 :: NEXT DE 
:: DISPLAY AT(WPY(WD),WPX(WD)):C 
HR$(138); 

1250 CALL SOUND(-100,300,2):: CA 
LL HCHAR(WPY(WD),WPX(WD)+2,WF(V( 
WD) ) ) 

1 260 CALL SOUND(4000,-7,29) : : NE 
XT WD :: CALL SOUND(-1 ,- 2,30) : : 
RETURN 

1 270 J = 0 :: FOR WD=1 TO 3 : : W= 
V (WD) 

1 280 IF W>4 THEN FV=W :: GOTO 
1310 

1290 JW=WD :: J=J + 1 :: IF JCC(VV 

)>0 THEN 1310 

1 300 DISPLAY AT (JPY (W) , JPX (VV) ) 
:NJ$;: : JCC(VV)=20 :: NJ=NJ-1 
1310 NEXT WD :: DO=(NJ=0):: IF D 
O THEN DC=15 :: DISPLAY AT(2,15) 

:"RADDOPPI"; 

1320 RETURN 

1330 HV=13 :: ON J+l GOTO 1340,1 
360,1340,1390 

1340 IF NOT(JA AND FV>10)THEN HV 
= FV 

1350 GOTO 1390 

1 360 V(0)=V(3): : V{4)=V(1) : : IF 
JA AND V(JW-1)<>V(JW+1)THEN 1390 

1 370 V(0)=15 : : V(4)=15 

1380 IF V(JW+1)>V(JW-1)THEN HV=V 

(JW-1)ELSE HV=V(JW+1) 

1 390 FOR WD = 1 TO 3 : : IF V(WD)<5 
THEN HW (WD) =HV ELSE HW(WD)=V( 
WD) 

1 400 NEXT WD :: IF HW(l)OHW(2 
) OR HW (2) <>HW (3) THEN 1420 
1410 IF JAC (HW (1 ) ) THEN JA=-1 :: 

JC = 15 : : GOSUB 450 
1 420 FOR WD = 1 TO 3 :: IF HW(WD) 
=13 THEN WI=WI+1 

1430 NEXT WD :: IF JA THEN WI=10 
*WI 

1 440 NS = - (HW(1 ) =HW(2) ) - (HW(2) 
=HW ( 3 ) ) : : IF NS>0 THEN WI=WI+R( 
NS,HW (2) ) 

1450 IF DO THEN WI=2*WI 
1460 RETURN 

1470 DT=1 :: GV(1)=2*WI :: GV(2) 
= 0 :: GV(3)=INT(3*WI/2): : GV(4) = 
INT(WI/2) 

1480 KEY=0 :: NG=NG+1 :: GOSUB 4 
40 :: DISPLAY AT(24,1):"STOP"; 
1490 FOR LI = 1 TO 3 : : CALL HCHAR 
(LI,16,96,17) : : NEXT LI 
1500 RR=RR+1 :: IF RR>4 THEN RR= 
1 

1510 DISPLAY AT(GPY(RR),GPX(RR)) 
:STR$(GV(RR)); 


1 520 CALL SOCJND (-4000,1 50+50*RR, 
2) 

1 530 IF KEYOASC ("S")THEN CALL K 
EY(0,KEY,CH) : : GOTO 1550 
1540 DT=(1+RND*2)*DT :: FOR DE=1 
TO DT :: NEXT DE :: IF DT>150 T 
HEN 1560 

1550 CALL HCHAR(GPY(RR),GPX(RR)+ 
2,96,4) : : GOTO 1500 
1 560 FOR LI = 1 TO 3 : : CALL HCHAR 
(LI,16,32,17): : NEXT LI 
1570 GW=GW+GV(RR)-WI :: WI=GV(RR 
):: CALL SOUND(-1 ,150+50*RR,2): : 
RETURN 

1580 CALL CLEAR :: CALL CHARSET 
:: CALL SCREEN(8) 

1590 DISPLAY AT(5,1):"TOTALE DEN 
ARO : " 

1600 IMAGE " $ ####.##" 

1610 DISPLAY AT( 7,3)-."GETTONATO: 
DISPLAY AT(7,18):USING 1600 

: NI 

1620 DISPLAY AT(8,3):"RIAVUTO:"; 
:: DISPLAY AT(8,18 )■ :USING 1600:M 
0/4 

1630 DISPLAY AT(9,3):"MAX IN UNA 
VOLTA:";:: DISPLAY AT(9,18):USI 
NG 1600:MM/4 

1640 DISPLAY AT(10,3):"VINTO D’A 
Z.ZARDO : " ; : : DISPLAY AT(10,18):US 
ING 1600:GW/4 

1650 DISPLAY AT(12,1):"NUMERO TE 
NUTE: ";NH 

1660 DISPLAY AT(13,1):"NUMERO AZ 
ZARDI:";NG 

1670 DISPLAY AT(14,1):"NUMERO TE 
NTATIVI: "; NT 

1680 RETURN 

1690 GOSUB 480 !DEF CARATT. 

1 700 GOSUB 710 ! SCHERMO 
1710 GOSUB 890 ! ADATT. 

1 720 ON -2*HB-(MO>1)+1 GOSUB 990 
,1040,990,1100 


1730 DISPLAY AT(5,9):: CA=-(GET= 
ASC("I"))-2*(GET=ASC("G"))-3*(GE 
T=ASC("F")) 

1740 ON CA+1 GOTO 1720,1750,1770 
,1970 

1750 NI=NI+1 :: IN=4 :: GOSUB 35 
0 

1760 GOTO 1720 
1770 IN=-2 :: GOSUB 350 
1780 GOSUB 1160 (GIRO RUOTA 
1790 IF DO THEN 1810 
1800 GOSUB 1270 !MATTE 
1810 GOSUB 1 330 ! VITTORIE 
1820 IF HF$(1)=Hl$ OR HF$(2)=Hl$ 
OR HF$(3)=Hl$ THEN 1840 
1830 HB=0 :: LW=WI :: IF WI>0 TH 
EN 1860 ELSE 1710 
1840 HB=-1 :: IF WI>LW THEN 1860 

1850 DISPLAY AT(5,9):" PERDI " 
:: CALL SOUND(-600,200,2):: GOTO 
1 71 0 

1860 DISPLAY AT(5,9):" VINCI "; 
:: DISPLAY AT(5,17):WI; : : FOR DU 
=1 TO WI :: CALL SOUND(-50,500,1 
):: CALL SOUND(1 , 500,30) : : NEXT 
DU 

1870 IF MO<2 THEN HB=-1 
1880 GOSUB 1130 ! ISTRUZIONI 
1890 CA=-(GET=ASC("T")AND NOT HB 
)-2*(GET=ASC("A"))-3*(GET=ASC("R 
") ) 

1900 ON CA+1 GOTO 1880,1960,1940 
,1 910 

1910 IN=WI :: GOSUB 350 
1920 IF WI>MM THEN MM=WI 
1930 GOTO 1710 

1 940 HB=-1 :: GOSUB 1 470 ! GAMBLE 

1950 IF WI>0 THEN 1860 ELSE 1850 
1960 WI = 0 : : GOTO 1710 
1 970 GOSUB 1 580 ! END 
1980 END 


w.-;^.v./avw i.vwt-+ . 


canguri 



I6/48K 


Non ce proprio limite olio fontosio: questo vol¬ 
to siete stot/ trosformoti mentepopodimeno che 
in un agile canguro!!! Rassegnatevi dunque od 
interpretare questo saltellante ruolo e prepa¬ 


ratevi a sottoporvi alle difficili prove cui inten¬ 
de sottoporvi un malvagio re che vi ha cattu¬ 
rato. Dapprima dovrete individuare (e raggiun¬ 
gere!) ruscita di quattro stanze, saltellando fra 
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i diversi blocchi di marmo e evitando di cadere 
nel mare sottostante, infestato da voraci squali 
mangia-canguri. Per riuscire in tale intento do¬ 
vrete raggiungere un blocco colorato in rosso, 
che aprirà la porta d'uscita. Se riuscirete a su¬ 
perare le quattro prove, il re vi costringerà a 
ripetere il percorso, questa volta però facen¬ 
dovi sparire alcuni blocchi sotto i piedi (pardon: 
le zampe!) se non vi sbrigherete. 

Il movimento è controllato dai tasti ‘5’ e '8' 


1 REM *** CANGURI *** 

2 LET qw=0 

3 LET a$="I" 

5 FOR f=l TO 3: READ p$ 

10 FOR n=0 TO 7: READ a: 

POKE USR p$+n / a: NEXT n 

12 NEXT f 

14 DATA "q",255,129,129,129,12 
9,129,129,255 

16 DATA "i",24,24,16,60,48,120 
,136,4 

18 DATA "j", 24,24,8,60,1 2,30,1 
7,32 

20 BORDER 2: PAPER 0 

2 5 CLS 

30 PRINT AT 1,8; FLASH 1; 

INK 6;" C A N G U R I " 

40 INK' 7: PRINT AT '4,0; "Immagi 
nate di essere trasformatip 
er magia in un agile...CANG 
UROISiete stati catturati d 
a un re pazzo che intende 
sottoporvi a diverse prove 
per verificare la vostra i 
ntelligenza e abilita'." 

50 PRINT ' "'In particolare dov 
ete riuscire atrovare l'usc 
ita di ogni stanza in cui v 
errete rinchiusi." 

60 PRINT ''"Tasti per il movim 
ento:"'" 8 per saltare a d 
estra"'" 5 per saltare a s 
inistra" 

70 PRINT PAPER 2; INK 0?AT 21 
,0;" PREMI UN TASTO PER CO 
NTINUARE " 

80 PAUSE 0 

85 CLS : PRINT AT 15,0;"P.S. 
Troverete 1' uscita se s 
aiterete sui blocchi rossi 

! Non dimenticatevelo." 

86 PRINT PAPER 2; INK 0;AT 21 
,0;" PREMI UN TASTO PER G 
IOCARE 


per saltare rispettivamente a sinistra e a de¬ 
stra. Fate attenzione alla procedura di salto: 
se premete uno dei tasti/controllo mentre il can¬ 
guro tocca il pavimento, realizzerete il salto ver¬ 
so l'alto; al contrario, se premete i tasti men¬ 
tre il canguro è in aria, il salto verrà effettuato 
verso il basso. È possibile anche dirigere l'ani¬ 
male mentre questi si trova in volo; sincroniz¬ 
zate dunque il saltellio del canguro con le vo¬ 
stre dita, e vedrete che riuscirete nell'impresa. 


87 IF INKEY$<>"" THEN 

GO TO 87 

88 PAUSE 0 

90 LET sc=0: LET 1=1: LET men= 
3 

100 LET y=l7: LET x = 2 
1 1 0 CLS 

120 PRINT "PROVA N.";l;" VITE" 
FOR i=l TO men: PRINT 
INK 3 ; "I_" ; : NEXT i: 

PRINT " PUNTI="; INK 4;s 
c 

125 IF 1=5 THEN PRINT AT 0,8?" 
* « 

130 INK 6: PRINT AT 21,0;"QQQQQ 

QQQQQQQQQQQQQQQQQQQQQQQQQQQ 
";AT 20,0; "QQQQQ" ; PAPER 1 ; 

ii ii • 

PAPER 0 ;"QQQ";AT 19,0;"QQQ 
QQ"; PAPER 1 ;" 

PAPER 0 ;"QQQ" 
;AT 18,0;" QQQQQ 

QQQ " 

140 PRINT AT 1,0;"QQQQQQQQQQQQQ 
QQQQQQQQQQQQQQQQQQQ ": FOR i 
=2 TO 17: PRINT AT i,0;"Q"; 
AT i,31 ;"Q": NEXT i 
150 BEEP .4,-34: PAUSE 4: 

BEEP .4,-30: PAUSE 4: 

BEEP .4,-26: PAUSE 4: 

BEEP .4,-18: PAUSE 2: 

BEEP .8,-22: FOR i=l TO 4: 
PAUSE 2: BEEP .2,(-22-2*i) 

: NEXT i 

155 IF 1=5 THEN GO TO 2600 

160 GO SUB 2000+1*100 

490 LET e=x: LET r=y 

500 IF y>l9 THEN GO TO 5000 

510 IF SCREEN$ (y+l,x)<>" " 

THEN LET q=2: IF qw=l 

AND INT (RND*10)=1 THEN 
PRINT AT y+1,x;" ": 

PRINT AT INT (RND*18)+1, 
INT (RND*27)+2 ;"Q" 

520 IF q=-1 THEN GO TO 600 
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530 LET r=r-l 
540 LET q=q-1 
560 BEEP (q+1)/l00,-20 

600 IF INKEY$ = "8" THEN LET a$ = 

Il j 11 

601 IF INKEY$ = "5" THEN LET a$ = 
"J" 

602 LET e=e+(INKEY$ = "8”)- ( 
INKEY$ = "5") 

603 IF e>31 THEN LET 1=1+1: 

LET sc=sc+l*2 : GO TO 100 

604 PRINT AT y ,x;" " 

605 IF SCREENS (r,e)<>" " 

THEN GO TO 630 
610 IF SCREENS (r+1,e)=" " 

AND q=-1 THEN LET r=r+l 
615 LET y=r: LET x=e 
630 PRINT AT y,x; INK 3;a$ 

635 IF y=ky AND x=kx THEN 
GO SUB 700 
640 GO TO 490 

700 PRINT AT 15,31;" ";AT 14,3 

. Il 11 
t 

710 BEEP .01,30: BEEP .02,10 
720 LET sc=sc+l 

72 5 PRINT AT y+1,x; INK 6 ; "Q": 

LET ky = 0 : LET kx = 0 
730 RETURN 

2100 PRINT AT 15,7;" QQQQQ ";AT 10 
,7 ;"OO"; PAPER 2 ;"Q"; 

PAPER 0 ;"QQ" 

2105 PRINT AT 13,1;" QQQQ ";AT 13, 
17 ;"QQQ" 

2140 LET ky=9: LET kx=9 
2150 RETURN 

2200 PRINT AT 14,1; PAPER 2 ;"Q"; 
PAPER 0 ;"Q" 

2210 FOR i=9 TO 29 STEP 5: 

PRINT AT 19-i/5,i-1;"QQ"; 
AT 11+Ì/5,i-2;"Q": NEXT i 
2220 LET ky=l3 : LET kx=l 
2250 RETURN 

2300 PRINT AT 4,1; PAPER 2 ;"Q"; 
PAPER 0 ;" QQQ " 

2310 FOR i=1 TO 6: PRINT AT 20-i 

* 3 , i* 4 ;"QQ";AT . ( i*3)+2,(i*4 
)+3 ;"QQ": NEXT i 
2320 LET ky=3: LET kx=l 
2350 RETURN 

2400 FOR i=9 TO 24 STEP 5: 

PRINT AT 1 9,i;"Q";AT 2 0,i; 
"Q": NEXT i 

2410 FOR i=1 TO 3: PRINT AT i*5, 
1 ;"Q": IF i>l THEN PRINT 
AT (i* 5)- 2,4 ;"Q" 

2420 NEXT i 

2430 PRINT AT 4,5; PAPER 2 ;"Q" 
2440 LET ky=3: LET kx=5 
2450 RETURN 


2600 LET 1=1 

2610 LET sc=sc+5 

2630 FOR i=-30 TO 30: BEEP .01,i 
: NEXT i 

2640 PRINT AT 10,7; FLASH 1;" ME 
RAVIGLIOSO ! FOR i=l 

TO 500: NEXT i: PRINT AT 1 
1,0;" ; AT 11,31;" " ; AT 15, 

0;" ";AT 15,31;" ";AT 12,0; 
"Adesso il malvagio re vi 
chiededi ripetere la prova 
per essereproprio certo de 



i risultati ! 

i i " 

• • 

2650 

FOR i = 30 TO - 

3 0 STEP -1 : 


BEEP .01,i: 

NEXT i 

2660 

PAUSE 350 


2670 

PRINT 1 " Questa volta, pero 


1 , noterete 

delle strano 


differenze ! ! 

i i •• 

• • 

2680 

PAUSE 250 


2690 

LET qw=1 


2695 

LET men=men+l 


2700 

GO TO 100 


5000 

FOR i=l TO 5: 

BEEP .2,i* 5 : 


BEEP .1,i* 2 : 

NEXT i 

501 0 

LET men=men-1 


5020 

CLS 


5030 

PRINT AT 7,0; 

"Oh! Scusa, ma 


mi ero dimenticatodi dirti 
che il mare in cui sei ora 
caduto e' pieno di SQUALI 
(Specie: divora-canguri) 

i i i i « 

• • • • 

5035 PRINT ''"Vite restanti : "; 
men 

5037 PRINT AT 21,9;"PREMI UN TAS 
TO" 

5040 IF INKEY$<>"" THEN 
GO TO 5040 

5045 PAUSE 0 

5046 PRINT AT 21,9;" 

II 

5050 IF men>0 THEN GO TO 100 

5060 PRINT AT 17,0;"Hai totalizz 
ato : "; se ;" punti" 

5070 FOR i=l TO 300: NEXT i: 

RUN 


Aspettiamo 
i tuoi lavori 
migliori! 
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Breakout 


Probabilmente non è necessario spiegare ai no¬ 
stri lettori come si gioca a 'Breakout 7 £ diffici¬ 
le oggi immaginare un ragazzo che non abbia 
mai provato a distruggere i muri di mattoni co 
forati, cosi come è richiesto da questo gioco. 
È invece opportuno sottolineare le caratteristi¬ 
che specifiche del programma qui presentato. 
Il muro è composto da tre file di mattoni, cia¬ 
scuna costituita da 30 pezzi; il punteggio au¬ 
menta m ragione delle diverse altezze. 
Quando avrete distrutto 60 mattoni passerete 
al quadrante successivo, con un nuovo mure 
che vi consentirà di realizzare punteggi supe 


1 REM *** BREAK-OUT *** 

3 BOEDER 0: LET hs=0: LET n$= 

ii ii 

5 GO SUD 2000: PRINT AT 21,2; 

10 PRINT AT 19,2; FLASH 1; 

BRIGHT 1;"PREMI UN TASTO P 
ER GIOCARE" 

12 FOR f=l TO 1600: IF INKEY$ 
<>"" THEN GO TO 15 

13 NEXT f: GO TO 3000 

15 BEEP .5,0: LET fp=0: LET j= 
0 

20 GO SUB 9000: GO TO 1000 
100 IF fp=l THEN GO TO 5000 
105 IF IN KEY$ <>"z" AND 
INKEY$<>"m" THEN 
RETURN 

110 PRINT AT 21,p;" " 

120 IF INKEY$ = "z" AND p>l 
THEN LET p=p-1 
130 IF INKEY$="m" AND p<29 
THEN LET p=p+1 
140 PRINT AT 21,p; INK 2;" 

{2G3 } ": RETURN 

200 PAUSE 100: CLS : IF fp=l 
THEN GO TO 5 

203 LET w=w+l: PRINT AT 4,4; 

PAPER 5;"Muro No. ";w-l;" 
distrutto" 

205 FOR f=0 TO 10: BEEP .2,f: 
NEXT f 

210 IF w=6 THEN GO TO 230 


riori. Il gioco termina se riuscite a distruggere 
i 5 muri previsti, o se perdete le cinque palline 
in dotazione. 

Il movimento della racchetta è governato dai 
tasti Z' e 7VT (sinistra e destra). Il gioco, mol¬ 
to colorato, è reso ancor più gradevole dagli 
effetti sonori, da due pagine di spiegazioni, e 
dalla memorizzazione del miglior punteggio rea 
lizzato, ovviamente compreso il nome dell'au¬ 
tore della prestazione. 

Inoltre il vostro Spectrum, se non interrompe¬ 
te le spiegazioni premendo un tasto, vi offrirà 
una dimostrazione pratica di gioco. 


220 PAUSE 50: PRINT AT 6,4; 

PAPER 4; INK 7;"Ora vai al 
muro No. ";w: PAUSE 150: 

GO SUB 9007: GO TO 1000 

230 PRINT AT 6,3; PAPER 4; 

INK 0; FLASH 1;"BEN FATTO! 
"; FLASH 0 ;"Hai distrutto t 
utti i muri" 

240 PRINT AT 9,4;"I1 tuo punteg 
gio e 1 ";s 

250 IF s<hs THEN PRINT AT 11,0 
;"Cosi' non hai battuto il 
record:";hs;" punti, di ";n 
$ : GO TO 600 

260 IF s=hs THEN PRINT AT 11,0 
;"Hai eguagliato il record 
!!!": INPUT "IL TUO NOME, 
PREGO.."; LINE e$: IF e$="" 
THEN GO TO 260 

265 IF s=hs THEN LET n$=n$+" & 
"+e$: GO TO 600 

270 IF s>hs THEN PRINT AT 11,0 
;"Hai battuto il RECORD 
!!": INPUT "IL TUO NOME, PR 
EGO.."; LINE n$: IF n$="" 
THEN GO TO 270 

280 LET hs=s: GO TO 600 

300 FOR f=0 TO 7: PAPER f: 

CLS : PAUSE 20: NEXT f 

310 PRINT AT 4,6; INVERSE 1 ;"LA 
PARTITA E' FINITA": 

PAUSE 50: GO TO 240 
FOR f=l5 TO -5 STEP -1: 


600 
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BEEP . 3 , f : NEXT f 
610 PAUSE 200: GO TO 5 
999 REM ROUTINE PALLINA 
1000 PRINT AT y,x;"o" 

1002 IF fp=l THEN GO SUB 5050 

1003 IF fl=l AND fp=0 THEN 

BEEP .05,a*4 : LET fl = 0 

1005 GO SUB 100: LET y=y+dy: 

LET x=x+dx: IF x=l OR x=30 
THEN LET dx=-dx: PRINT 
AT y-<3y,x+dx;" ": GO TO 100 
9 

1006 IF ft=l THEN LET ft = 0: 

GO TO 1009 

1007 PRINT AT y-dy,x-dx;" ": 

IF fa=l THEN GO SUB 140: 
LET fa=0 

1008 IF fp=l THEN GO SUB 5100 
1010 IF y>6 AND y<21 THEN 

GO TO 1000 

1020 IF y<7 THEN GO TO 1050 
1030 IF x=p OR x=p+l THEN LET d 
y=-dy: LET x=x+l-(2*(x>=29) 
): LET y=y-1 : LET fa = l: 

BEEP .1 *(fp=0) ,0: GO TO 10 
05 

1035 IF INKEY$<>"" THEN 
GO TO 1035 

1040 BEEP .75*(fp=0),30: LET 1=1 
-1: PAUSE 50: IF 1=0 THEN 
GO TO 300 

1 04 5 PRINT AT 21,p;" ": 

GO SUB 9050: GO TO 1000 

1049 REM URTO CON IL MURO 

1050 LET a=ATTR (y,x)-48-j: 

LET C=CODE SCREENS (y,x): 
IF a=l AND y>l AND C<>95 
THEN GO TO 1000 
1055 IF a=l AND c<>95 THEN 

LET dy=-dy: GO TO 1000 
1070 IF c=95 THEN GO TO 1100 
1075 LET fl=l 

1080 LET s=s+(((a-2)*10)*w): 

LET h=h+l: PRINT AT 0,9;s; 

: IF h=60 THEN GO TO 200 
1090 LET dy=-dy: GO TO 1000 
1100 LET x=x+(2*(RND>.5)- 1) : 

LET dy=-dy: LET ft=l: 

GO TO 1005 

1999 REM PAGINA I ISTRUZIONI 

2000 PAPER 7: CLS : ItlK 0 

2010 PRINT AT 2,10; PAPER 6;"BRE 
AK-OUT”;AT 2,9; INK 2; 

OVER 1 ; "_ __" 

2020 PRINT AT 4,0;' PAPER 6;"Scop 
o del gioco e' distruggere 
idiversi muri di mattoni, f 
acendorimbalzare la palla f 
ra il muro e la racchetta. 


2030 PRINT AT 9,0; PAPER 4;"Quan 
do avrai colpito 60 mattoni 
apparirà' un nuovo muro in 
tegro.il gioco terminerà' q 
uando avraidistrutto 5 muri 
, o quando avrai terminato 1 
e palline. " 

2040 PRINT AT 15,0; PAPER 2;"Spo 
sterai la racchetta a destr 
a con <M> , a sinistra co 

n <Z> " 

2050 RETURN 

2999 REM PAGINA 2 ISTRUZIONI 

3000 CLS : PRINT AT 2,10; 

PAPER 6;"BREAK-OUT";AT 2,9 
; INK 2; OVER 1;" 

it 

3010 PRINT AT 4,0; PAPER 4; "Hai 
5 palline a disposizione 

3015 LET h$=STR$ hs: LET q$ = " 

•I 

3020 PRINT AT 6,0; PAPER 5;"Il 

record e' ";hs;" punti"; 
q$(1 TO 9-LEN h$)'"reaiizza 
to da..";n$;q$(1 TO 17- 
LEN n$) 

3030 PRINT AT 9,0; PAPER 6;"Per 
il primo muro i punteggi 
sono i seguenti 

n 

3040 PRINT AT 11,5; PAPER 6;"10 

per lo strato piu' basso"; 
AT 12,5;"20 per lo strato i 
ntermedio";AT 13,5;"30 per 
lo strato piu' alto " 

3050 PRINT AT 15,0; PAPER 3;"Per 
il nuovo muro i punteggi 
vengono raddoppiati,e cos 
i' via." 

3060 PRINT AT 19,2; FLASH 1; 

BRIGHT 1;"PREMI UN TASTO P 
ER GIOCARE" 

3080 FOR f=l TO 1600: IF INKEYS 
<>"" THEN GO TO 15 
3090 NEXT f 

3999 REM DEMO 

4000 LET j=8: LET fp=l: LET pi=0 
: LET dp=0: GO SUB 9000: 

GO TO 1000 

4100 IF x<15 AND dx=l THEN 

LET pi=x+l4 : GO TO 4140 
4105 IF x>l5 AND dx=-l THEN 

LET pi=x-14 : GO TO 4140 
4110 IF dx=l THEN LET yt=7+(32- 
x) : LET pi=30-(22-yt) 

4120 IF dx=-1 THEN LET yt=7+x: 
LET pi=22-yt 

4140 IF pl=0 THEN LET pi=1 
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4145 IF pi>=30 THEN LET pi =29 
4150 IF pl=p THEN LET dp=0: 
RETURN 

4160 IF p>pl THEN LET dp=-l: 
RETURN 

4170 LET dp=l: RETURN 

4999 REM MOVIMENTO AUTOMATICO 

DELLA RACCHETTA 

5000 IF INKEY$<>"" THEN 

GO TO 15 

5010 IF p=pl OR p+l=pl THEN 
RETURN 

5020 PRINT AT 21,p;" LET p=p 

+dp: GO TO 140 

5050 IF dy=-1 THEN LET pi=15: 

GO TO 4150 
5060 RETURN 

5100 IF y=7 AND dy=l THEN 
GO TO 4100 
5110 RETURN 

8999 REM INIZIALIZZAZIONE 

9000 LET S=0: LET w=l: LET 1=5 
9007 LET h=0 

9010 BORDER 0: PAPER 6: INK 1: 
CLS 


9015 IF fp=l THEN PAPER 7: 

CLS 

9020 FOR f=0 TO 21 : PRINT 

PAPER 0 ;AT f,0 ;"{G5}";AT f 
,31 ;"{SG5}": NEXT f 
9030 FOR f=l TO 3: PRINT AT l,f* 
7;" _NEXT f 

9040 FOR f=l TO 30: PRINT INK 5 
;AT 4,f;CHR$ 143; INK 4; 

AT 5,f;CHR$ 143; INK 3;AT 6 
,f;CHR$ 143: NEXT f 
9050 PRINT AT 0,3;"Punti ";s; 

AT 0,22;"Palle ";1 
9055 IF fp=l THEN GO TO 9080 
9060 PRINT AT 18,3;; FLASH 1; 

PAPER 0; INK 5;"PREMI UN I 
ASTO PER GIOCARE" 

9070 PAUSE 0: PRINT AT 18,2; 

PAPER 6;" 

II 

9080 LET p=l5 : LET x = INT (RND*28 
)+2 : LET y=20: LET dx=-l + (2 
*(RND>•5)): LET dy=-l: 

LET fa=0: LET fl=0: LET ft 
=0: GO TO 140 



Questo programma, adatto a bambini in età 
prescolare, si propone scopi didattici per l'ap¬ 
prendimento dell'alfabeto. 

Scopo del gioco è premere il tasto corrispon¬ 
dente alla lettera dell'alfabeto visualizzata dal 


0 PRINT"{CLR}ATTENDERE PREGO..." 

1 POKE52,48:POKE56,4 8:CLR:POKE56 
334,PEEK(56334)AND254 :POKEl,PE 
EK(1)AND251 

5 FORN=0TOl 279 :POKEN+1 2288,PEEK( 
N+53248):NEXTN:POKEl,PEEK(1)OR 
4 

6 POKE56334,PEEK(56334)ORI 

10 PRINT"{BLK}{CLR}":POKE53281,1 
20 DIMY(5) ,K(5) ,0(5) ,CO(5) : AB = 6 4 


computer: se il tasto è quello corretto, cinque 
pulci di diverso colore inizieranno una corsa at¬ 
traverso lo schermo; se invece il tasto premu¬ 
to non corrisponde al carattere visualizzato, il 
computer risponderà con un suono sgradevole 
attendendo la pressione del tasto corretto. 


25 CO(0)=0:CO(1)=3:CO(2)=4:CO(3) 
=5:CO(4)=7 

30 Z = 05:A=45:CR=42:IN=-1:WX= 5427 
2 

34 SS = 1 2288+(41 *8) :FORI = 0TOl5 : RE 
ADQ:POKESS+I,Q:NEXTI 
36 DATA 36,72,123,254,254,123,72 
,36,1 44,72,1 23,2 54,254,1 23,72 
,144 

40 FORN = 0TO4: READY(N) :NEXTN 
50 DATA 1306,1386,1466,1546,1626 
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55 FORW=0TO4:K(W)=Y(W):NEXTW 
57 PRINT"{WHT}{CLR}":FORP=0TO4:O 
(P)=48:NEXTP:X=1264:F=48 
60 FORL=0TO5: FORI = 0TO39:POKEX+I, 
A:POKEX+I+WX,0 : NEXTI 
70 POKEX+I-1 ,115:X=X+8 0 :NEXTL 

74 FORG = 0TO4:POKEY(G)-1+WX,0 :POK 
EY(G)+WX,CR:NEXTG 

75 FORG=0TO4:POKEY(G)-1,49+G:POK 
EY(G),CR:NEXTG 

76 AB=INT(RND(1)*26)+64 

77 AB=AB+1 : IFAB>90THENAB=65 

78 PRINT"{HOME){BLK}{GIU'}PREMI 

"; CHR$(18)CHR$(AB)CHR$(146);" 
PER INIZIARE" 

79 GETA$:IFA$=""THEN79 

80 IFASC (A$) OABTHENGOSUBl 74:GOT 
078 

81 POKE53272, (PEEK(53272)AND240) 
+ 12: M = 35 :FORC = 0TO4:IFK(C)=Y( 
C)+35THEN105 

85 POKER(C),32 

90 E=INT(RND(0)+.5)+1.5:K(C)=K(C 
)+E:IFK(C)=>Y(C)+M-1.5THENK(C 
)=Y(C)+M:F=F+1 

100 POKER(C),CR:POKER(C)+WX,CO(C 
):FOR J=0TOZ:NEXTJ:IFK(C)=Y( 
C)+MTHEN105 
102 GOTO!10 

105 IFO(C)< >1THENPOKER(C)+1 ,F:PO 
KEK(C)+1+WX,0:POKER(C),42:0( 


C)=1 :GOSUB200 
110 NEXTC 

115 CR=CR+IN:IN=IN*-1:IFF<53THEN 
81 

118 POKE53272,21 
120 PRINT"{HOME}{BLK} { 19 GIU'} 
ANCORA? 'S' OR 'N'" 

130 GETY$ : IFY$ = ""THEN130 

14 0 IFY $ = "S"THENCR = 42:IN = -1: GOTO 
55 

145 IFY$<>"N"THENGOSUBl74:GOTOl2 
0 

150 END 

174 SO = 54 272 :FORGH=SOTOSO+24:POK 

EGH,0 :NEXT:POKESO+24,15:POKE 
SO+1,34 :POKESO,75 

175 POKESO+5,72:POKESO+6,72 

176 PORESO+4,129:FORT=1TO500:NEX 
T 

177 FORGH=l0TO0STEP-1:POKESO+24, 
GH:NEXT 

178 RETURN 

200 SO=54272:FORGH=SOTOSO+24:POK 

EGH,0:NEXT:POKESO+24,15:POKE 
SO+1,34:POKESO,75 
205 POKESO+5,72:POKESO+6,72 
210 POKESO+4,17:FORT=1TO500:NEXT 
215 FORGH=l0TO0STEP-1:POKESO+24, 
GH:NEXT 
220 RETURN 


Supcrcopy 



disk drive IS4I 


latti i possessori del drive 1541 sanno quanto 
possa essere noioso creare una copia di back- 
up dei propri dischi, ed in particolare trasferì 
ie i programmi In codice macchina che non 
possono essere salvati con un normale S AVE. 
Questo programma permette di ottenere delle 

1 FORI = 82 8T0898: READA:POKEI,A:NE 
XT:PRINT"{WHT}";:POKE53281,6:P 
OKE53280,2 

20 BB = PEEK(44)+27 :POKE995,BB 
30 POKE998,0 :POKE999,1 60:POKE55, 
0 :POKE56,BB:CLR 
40 BB=PEEK(995) 


copie dei propri dischi In maniera estremameli 
te veloce c soprattutto automatica. Durante 
la copia viene visualizzata la BMi del disco ed 
i blocchi copiati, secondo le convenzioni usate 
nel disco dimostrativo Commodore allegato alla 
confezione del drive. 

50 N = 22 0 :BA=BB* 256 :MA= 828 
60 DIMBM%(35,24) 

70 FORJ=0TO7:TA(J)=2tJ:NEXT 
80 PRINT"{CLR}SUPERCOPY 1541" 

90 PRINT"'GOTO!0000' SE IL PROGR 
AMMA SI DOVESSE{ 2 SPAZI}FERM 
ARE IN MODO ANORMALE" 
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110 OPEN1,8,15 

210 GOSUBl000 

211 PRINT"{HOME}{ 4 GIU'}VUOI DI 
SABILITARE LO SCHERMO?"; 

212 GOSUB3500:IFA$="S"THENSB=1 :P 
RINT#1,"UI-" 

215 PRINT"{HOME}{ 6 GIU'}VUOI CO 
PIARE TUTTI I 683 SETTORI?"; 

216 GOSUB3500:IFA$="S"THENDB=1 
220 PRINT"{CLR}"; :D$ = "S":GOSUB32 

00:I2$=IR$ 

230 IFDR$0"2A"THENPRINT" {CLR}DI 
SCO NON COMPATIBILE CON IL D 
OS":GOTOl0000 

240 IFI2$=I1$THENPRINT"{CLR}DISC 
O SORG.E DEST.CON LO STESSO 
ID":GOTOl0000 
250 GOSUB2500 
255 IFDBTHENTS=1:ES=35 
260 T=TS:S=0:NU=1:Tl=T:Sl=S 
270 PRINT#1,"I0": OPEN3,8,3,"#" 

290 U%=BM%(T1,S1) :IFU% = -1THEN300 

295 IF(U% = 0)OR(DB=1)THENGOSUB20 0 
0 :NU=NU + 1:IFNU>NTHEN330 
300 Si=S1+1 :IFSl>20THENS1 = .:T1=T 
1+1 

310 IFTl<TF+1THEN290 
330 CLOSE3 

340 D$="D":GOSUB3200:IFIl$=""THE 
NIl$=IR$:IFIl$=I2$THEN240 
345 IFIR$< >11$THENPRINT"{RVS}"; : 
GOTO340 

350 PRINT#1,"I0":OPEN3,8,3,"#" 

370 NU = 1 :Tl=T:Si=S 

380 U%=BM%(Tl,S1) : IFU% = -1THEN390 

385 IF(U% = 0)OR{DB=1)THENGOSUB220 
0 :NU=NU + 1 :IFNU>NTHEN420 
390 Sl=Sl+l:IFSl>20THENSl=.:Tl=T 
1+1 

400 IFTl<TF+1THEN380 
420 CLOSE3 

430 S=S1+1:IFS>20THENS=.:T1=T1+1 
440 T=T1:IFT>TFTHEN500 
450 D$="S":GOSUB3200:IFIR$<>I2$T 
HENPRINT"{RVS}";:GOTO450 
460 NU=1:Tl=T:Sl=S:GOTO270 
500 POKE53265,27 :PRINT#1,"UI + ":C 
LOSE1 

520 POKE55,PEEK(998):POKE56,PEEK 
(999):CLR 

530 POKE53 280,6 :PRINT"{CLR}OK. - 
TERMINATO" 

540 OPEN1,8,0,"$0" 

550 GET#1 , A$ : IFA$O""THEN550 

560 PRINTA$; :GOT0610 

570 GET#1,A$:SS=ST:A=LEN(A$):IFA 


THENA=ASC(A$) 

580 GET#1,B$:SS=ST:B=LEN(B$):IFB 
THENA=ASC(B$) 

590 IFSSTHEN660 
600 IFA=1ANDB=1THENGOSUB63 0 
610 GET#1,A$:IFA$=""THENPRINT:GO 
TO57 0 

620 PRINTA$; :GOT0610 
630 GET#1,A$:SS=ST:A=LEN(A$):IFA 
THENA=ASC(A$) 

640 GET#1,B$:SS=ST:B=LEN(B$):IFB 
THENB=ASC(B$) 

650 N=B*256+A:PRINTN;: RETURN 
660 CLOSEl 
670 END 

1000 PRINT"VUOI FORMATTARE IL DI 
SCO?"; 

1003 GOSUB3500:IFA$="N"THENRETUR 
N 

1010 PRINT"INSERISCI IL DISCO DA 
FORMATTARE" 

1020 INPUT"NOME DEL DISCO 
{ 10 SPAZI}";DN $ 

1030 IFDN$=""THENPRINT"{ 2 SU}": 
GOTOl020 

1040 IFLEN(DN$)>16THENCLR:GOTO40 
1050 F = 0:FORJ = lTOLEN(DN$): Si$=MI 
D$ (DN$ , J , 1) 

1060 IFSl$=""ORSl$=CHR$(34)THENF 

= 1 

1070 NEXTJ:IFFTHENPRINT"{ 2 SU} 

":GOTOl020 

1080 INPUT"IDENTIFICATORE 
{ 19 SPAZI}"; Il $ 

1090 IFI1$=""THENPRINT"{ 2 SU}": 
GOTOl080 
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1100 IFLEN (Il $) 02THENPRINT" 

{ 2 SU}":GOTOl080 
1110 PRINT#1,"NO :"+DN$ + ","+11$ 
1120 PRINT"{CLR}STO FORMATTANDO. 
.."; :GOSUB3000 

1130 IFERTHENPRINTER$:G0T010000 
1140 RETURN 

2000 IFSBANDNUTHENPOKE53280,NU 
2010 C=. 

2015 IFNU=173THENNU = 189 
2020 PRINT#1, "U1"; 3 ;.;Tl;S1 
2030 GOSUB3000:IFNOTERTHEN2060 
2040 C=C+1:IFC<3GOTO2020 
2050 PRINTERS:FORJ =(BB+NU)* 256TO 
(BB+NU)*256+255:POKEJ,.:NEX 
TJ: GOTO 2200 
2060 PRINTtl,"B-P"; 3;. 

2070 IFNUOOTHENPOKEll 07+S1 *40+T 
1,127 

2080 POKE996,PEEK(3):POKE997,PEE 
K(4):POKE4,BB+NU:SYSMA 
2085 POKE3,PEEK(996):POKE4,PEEK( 
997) 

2090 IFSTO.ANDST064THENGOSUB30 
00:GOTO2050 
2100 RETURN 

2200 IFSBANDNUTHENPOKE53280,NU 
2210 C=. 

2220 IFU%=.THENPRINT#1,"B-A";.;T 
1 ; S1 

2225 PRINT#1,"B-P"; 3;. 

2230 IFNUOOTHENPOKEl 1 07+Sl *40+T 
1 ,32 

2235 IFNU=173THENNU=189 
2240 POKE996,PEEK(3):POKE997,PEE 
K(4):POKE4,BB+NU:SYSMA+3 
2245 POKE3,PEEK(996):POKE4,PEEK( 
997) 

2 250 IFST< >.ANDST< >64THENPRINT"S 
CRITT.IEEE"ST"":GOTOl0000 
2260 PRINT#!,"U2";3;0;Tl;S1 
2270 GOSUB3000:IFNOTERTHEN2300 
2280 C=C+1:IFC<3THEN2260 



2290 PRINT"ERRORE DI SCRITTURA"E 
R$ rGOTOl000 0 
2300 RETURN 
2500 TS=1 :TF=. 

2520 PRINT#!,"I0":OPEN3,8,3,"#" 
2530 S9=0 

2 54 0 POKE53281 ,1 :PRINT"{CLR}";:P 
OKE53281,6 

2560 NU = 0:Tl=18 :S1=0:C0$=CHR$(.) 
:GOSUB2000:CLOSE3 

2561 FORI=0TO20:POKEl104+1*40,AS 
C(RIGHT$(STR$(I),1)):NEXT 

2562 F0RI=lT035:POKEl987+1,ASC(R 
IGHT$(STR$(I),1)):NEXT 

2570 POKE53265,27 :BY = 4 
2580 T%=(BY-4)/4+l 
2600 IFPEEK(BA+BY)=.THENFORJ=.TO 
20 :BM%(T%,J)=.:NEXT:BY = BY + 4 
:GOTO2650 
2610 S=0 

2620 BY=BY+1:A0=PEEK(BA+BY):FORJ 
=.T07:BM%(T%,S)=A0ANDTA(J): 
S=S+1:NEXT 
2630 IFS<22THEN2620 
2640 BY=BY+1 

2650 ES=21:IFT%>17THENES=19 
2660 IFT%>24THENES=18 
2670 IFT%>30THENES=17 
2680 FORJ =EST024:BM%(T%,J)=-1 : NE 
XT 

2690 SM=.:FORJ = .TO20:SL%=1107+J* 
40+T%:POKESL%,45:IFBM%(T%,J 
) O.THEN2700 

2695 SM=SM+1 :POKESL%,160 
2700 NEXT:S9=S9+SM 
2702 IFT%<=17THEN2710 
2704 POKEl907+T%,46:POKEl867+T%, 
46:IFT%<=24THEN2710 
2706 POKEl827+T%,46:IFT%<=30THEN 
2710 

2708 POKEl787+T%,46 
2710 IFSM=.ANDTS=T%THENTS=TS+1:G 
OTO2730 

2720 IFSMO .THENTF=T% 

2730 IFBY<143THEN2580 
2760 IFDB=1THENS9=683 
2765 PRINT"{HOME}"S9;"BLOCCHI DA 
TRASF."; 

2770 S8=90+25+(.650+.980)*S9 
2773 IFSB=0THENS8=S8*1.25 
2776 S7=INT(S8/60) 

2780 PRINTS7":"INT(S8-S7*60); 
2785 IFSB=1THENPOKE53265,11 
2790 RETURN 

3000 INPUT#1,ER,ER$,E2%,E3%:RETU 
RN 

3200 POKE53265,27 
3210 IFD$="D"THENS1$="DEST.":POK 
E53280,2:GOTO 32 30 
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3220 SI $ = "SORG.":POKE53280,5 
3230 PRINT"{HOME}{GIU'}INSERISCI 
DISCO ";S1 $ ;" E PREMI SHIF 
T {OFF}[<B>]{SIN}"; 

3240 POKE204,0 :WAIT653,1 
3242 IFSB=1THENPOKE53265,11 
3250 POKE204,1 : OPEN2, 8,0,"$0" 
3260 GOSUB3000:IFER>OTHENCLOSE2: 

PRINT"{RVS}";:GOTO3200 
3270 FORJ=lT026:GET#2,A$:NEXTJ 
3280 GET#2,A$:GET#2,B$:IR$=A$+B$ 

3290 GET#2,A$:GET#2,A$:GET#2,B$: 
DR$=A$+B$ 

3295 PRINT"{HOME}{GIU 1 } 

{ 40 SPAZI}"; 

3300 CLOSE2:RETURN 
3500 PRINTTAB(37)"[<B>]{SIN}"; 
3510 POKE204,0:GETA$:IFA$ = ""THEN 
351 0 


3515 POKE204,1 

3520 IFA$="S"THENPRINT"{RVS}SI": 
RETURN 

3530 IFA$="N"THENPRINT"{RVS}NO": 
RETURN 

3540 GOTO3510 

1 0000 PRINT#1,"UJ":POKE55,0 :POKE 

56.1 60:CLR:POKE53 26 5,27 :ST 
OP 

1 5000 DATA76,66,3,76,91 , 3,1 62,3, 

32.1 98,255,1 60,0,1 32,3,32, 
207,255,145 

15010 DATA3,165,144,208,3,200,20 
8,244,32,204,255,96 
15020 DATA162,3,32,201,255,160,0 
,132,3,120,165,1,41,253,13 

3.1 , 1 77,3,72,1 65,1 

1 5030 DATA9,2,1 33,1 , 1 04,88,32,21 
0,255,165,144,208,3,200,20 
8,228,76,204,255 


- C64c 

Occhio al serpente joystick 


Un classico, ma sempre divertente gioco di 
azione per C64. Si tratta di cercare di "man¬ 
giare ' ' il maggior numero di asterischi possibi¬ 
le. manovrando il serpente (in questo caso una 
vipera...) sullo schermo. Per ogni asterisco man¬ 
giato. il serpente allunga il suo corpo di una 
unità. Il programma contiene una particolare 
opzione che permette di scegliere se giocare sul- 


100 DT=60: DIM MA(DT) ,Q(100) ,1%(1 
5) 

110 I%(14)=-40:I%(13)=40:I%(11)= 
-1 :1%(7)=1 

120 I%(10)=-41:1%(6)=—39:1% (9)=3 
9:1%(5)=41 :JOY=56321 
130 FORJ=lTODT:READMA(J):NEXT 
140 PRINT"{WHT}{CLR}"CHR$(142):C 
=54272:SC=1024:POKE53281,2:P 
OKE53280,8 
150 MZ=0:P=0:DR=0 

160 CURR=251:SPEED=49352:INDEX=S 
PEED+1:LNGTH=INDEX+1:RTN=LN+ 
1 


10 schermo libero oppure muovendosi entro due 
tipi diversi di labirinto per rendere più eccitan¬ 
te e più difficile il gioco. Esiste inoltre la possi¬ 
bilità di regolare la velocità di movimento, da 
valori più che accettabili fino a valori che ren¬ 
dono estremamente difficile riuscire a guidare 

11 serpente. 

È richiesto l'uso di un joystick 


170 SID=54272:V=SID+24:S1=SID:S2 
=SID:S3=S2:A=2:N=2:MM=0:S4=S 
ID + 4 

180 FORI = 0TO24:POKESID+I,0 :NEXT: 
POKESID + 1,25 :POKESID + 5,6 :POK 
ESID+6,0 

190 POKESID+24,15 

200 GOSUB410 :POKESID+5,6 :POKESPE 
ED,19-SK 

210 FORJ = l 024TO1 063 :POKEJ+C,7 : PO 
KEJ,160:NEXT 

220 FORJ=l064T02024STEP40:POKEJ+ 
C,7 :POKEJ,160: NEXT 

230 FORJ=2023TOl 984STEP-1 :POKEJ+ 
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C, 7 :POKEJ,160:NEXT 
240 FORJ = l 983T010 63STEP-40 :POKEJ 
+C, 7 :POKEJ,160:NEXT 
250 M=INT(RND(1)*1000)+SC 
260 IFPEEK (M) O32THEN250 
270 POKEM,42:POKEM+C, 1 
280 S=INT(RND(1)*1000)+SC 
290 IFPEEK (S) O32THEN280 
300 POKE S,90 :POKES+C,16*RND( 1 ): 
IF(PEEK(56321)ANDl5)=15THEN3 
00 

310 S%=S/256:POKECURR,S-S%*256: P 
OKECURR+1,S%:POKEINDEX,0 
320 POKELNGTH,N: SYS491 52+5: REM L 
OOP PRINCIPALE GOTO 170 
330 HIT=PEEK(RTN) 

540 IFHITOl 60ANDHITO21 4THEN360 

50 S=PEEK(CU)+256*PEEK(CU+1) : PO 
KES,42:POKES+C,7 :GOT07 70 
J60 IFHITO42THEN320 
370 POKESID,0 :POKESID + 5,9 :POKES4 
,128:POKES4,129 :P=P+1:N=N+2: 
FORT=1TO50:NEXT 

380 POKES4,l28:POKESID,0:POKESID 
+ 5,6:POKESID+24,0 :POKESID+24 
,15 

390 GOSUB880:POKEM,42:POKEM+C,1 : 

POKESID+24,0 :POKESID+24,15 
400 GOTO320 

410 IFTR=1THENPRINT"{CLR}":GOT04 
70 

420 GOSUB950 

430 PRINT"{ 2 GIU'}{ 3 SPAZI}PRE 
NDI GLI ' *' MA":PRINT" 

{ 3 SPAZI}NON TOCCARE NIENTE 
ALTRO" 

440 PRINT"{ 2 GIU'H 3 SPAZI }USA 
IL JOYSTICK NELLA PORTA UNO 

II 

450 F0RJ = lT045:POKESID,230 :POKES 
4,33:FORT=lT02:NEXT:POKES4,3 
2 :POKESID,0 
460 POKESID+5,2 

470 PRINT"{ 3 GIU 1 }"TAB(9)"LIVEL 
LO DI DIFFICOLTA’:" 

480 PRINTTAB(10)"[<8>]{RVS} 

{ 9 SPAZI}1111 111 1112":SK=10 

490 PRINT"{YEL}LENTO{WHT} 

{ 2 SPAZI}<- [<8>]{RVS}12345 
678901234567890{OFF}{WHT} -> 
[<6>]VELOCE"; 

500 PRINTSPC(10)"{RVS}{WHT} ^ 
{CYN } -^{ PUR} -_{GRN } Z {YEL} 
M<1>] ^[<6>] :l K7>] -{BLU} 

—_[< 3> 1 : PRINT 

510 PRINT"{SU}"TAB(10+SK);"{WHT} 
t{SIN}"; 


520 J=15-(PEEK(56321)ANDl5):SK=S 
K+((JAND8)=8)*(SK<19)-((JAND 
4)=4)*(SK>0) 

530 IF(PEEK(56321)ANDl6)=0 THEN5 
60 

540 IF TI<T THEN530 
550 T=TI+5:PRINT" ":GOTO510 
560 IFTR=1THENPRINT"{CLR}":GOT06 
1 0 

570 PRINTCHRS(14)"{CLR}{GIU'} I 
L PUNTEGGIO SARAPRINT" MO 
LTIPLICATO PER DUE CON UN" 

580 PRINT" LABIRINTO FACILE." 

590 PRINT"{ 2 GIU'} IL PUNTEGGIO 
SARA'":PRINT" MOLTIPLICATO 
PER CINQUE CON UN" 

600 PRINT" LABIRINTO DIFFICILE." 

610 PRINTCHR$(1 4)"{ 2 GIU'HWHT} 
SINISTRA[<8>] PER UN LABIRIN 
TO DIFFICILE" 

620 PRINT"{GIU'}{WHT}DESTRA[<8>] 
PER UN LABIRINTO FACILE" 

630 PRINT"{GIU'}{WHT}IL FUOCO 

[<8>} SE NON VUOI UN LABIRIN 
TO" 

640 IFPEEK (56321 ) 0255 THEN640 
650 MZ=0:J=PEEK(56321):IF(JANDl6 
)= 0THENPRINT"{CLR}"CHR$(142) 

; : RETURN 

660 IF(JANDl5)=15 THEN650 
670 PRINT"{CLR}"CHR$(142):IF(JAN 
D4) THEN720 

680 I=-l:PRINT"{HOME}{RVSjDIFFIC 
ILE" 

690 FORJ=lTODT:POKESC+80+I*320+M 
A(J)+C,3 :POKESC+MA(J)+80 + 1*3 
20,1 60 :NEXTJ 
700 1=1+1:IFI<2 THEN690 
710 MZ=1:RETURN 
720 IF(JAND8)THEN570 
730 I=-l:PRINT"{HOME}{RVS}FACILE 

It 

740 F0RJ=1T032:POKESC+MA(J)+C+80 
+320*1,3:POKESC+MA(J)+80+320 
*1,160:NEXT 
750 1 = 1 + 1 :IFI<2THEN740 
760 MZ=2:RETURN 

770 POKESID,0:POKESID + 5,1 5:POKES 
4,129 :FORJ=l5T04STEP-.1:POKE 
SID+24,J:NEXT 

780 POKESID+24,15:FORT=lTO500:NE 
XT:POKES 4,128:FORT=lTO200: NE 
XT:POKESID+5,6 
790 IFMZ = 1THENP=P*5 
800 IFMZ = 2THENP=P*2 
810 R=P*(SK+1) 

820 PRINT"{CLR}{ 2 GIU'}{YEL} HA 
I FATTO:"R" PUNTI" 
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830 IFR>HSTHENHS=R 
840 PRINT"{ 2 GIU'} {CYN}PUNTEGG 
IO PIU’ ALTO :"HS 
850 PRINT:PRINT"{WHT}PREMI [<3>] 

{rvs}il fuoco {whtJper gioca 

RE ANCORA." 

860 IF(PEEK(56321 )AND 16)THEN860 
870 GOTO140 

880 M=INT(RND(1)*1000)+SC:MM=0 
890 IFPEEK (M) O32THEN880 
900 RETURN 

910 DATA 259,260,336,337,338,341 
,342,343,376,383,411,412,413 
,414,415,416 

920 DATA 423,424,425,426,427,428 
,456,463,496,497,498,501,502 
,503,579,580 

930 DATA 258,259,330,331,332,333 
,334,345,346,347,348,349,418 
,419,420,421 

940 DATA 490,491,492,493,494,505 
,506,507,508,509,578,581 
950 PRINT"{CLR}{WHT} "CHR$(142); 

: FORI = 2T039:PRINT"*";:NEXT:P 
RINT:PRINT"{ 4 GIU’}" 

960 PRINT" "; : FORI = 2T039:PRINT" 

; :NEXT 

970 PRINT"{HOME}{GIU’}[< 3 @>] 
[<0>] t<@>] [< 3 @>] 

[< 2 @>] [< 3 @>] [< 3 @>]" 

980 PRINT"{ 2 SPAZI}{RVS} £{OFF} 
£{RVS}£{OFF}£{RVS}£{OFF}£ 

Trvs}eToff}eTrvs}eToff}£ 

{RVS}£{OFF}£{RVS}£{OFF }£ 

[<@>]Trvs}eToffJeTrvs} " 

990 PRINT" [<T>}{RVST {OFF}£ 

{RVS}£{OFF}£{RVS}£{OFF}£ 

[< 2 T>]{RVS}£{OFF}£[<T>] 
{RVS}£{OFF}£[<*>]{RVS}[<*>] 
{OFF} {RVS}£{OFF}£[<T>]{RVS} 

II 

1000 PRINT" [< 2 T>} [<T>] 

[< 2 T>]{ 2 SPAZI}[< 2 T>] 
[< 2 T>] [< 3 T>] 

{ 2 SPAZI}[< 2 T>]":IFZZ=1T 
HEN1070 

1010 IFPEEK (900) O232THENG0SUB1 1 
30 

1 020 FOR CO=3 TO 7 :POKE89 4,CO:SY 
S893 

1030 FOR 1=1 TO 17 
1035 PRINT"{HOME}{GIU'}"CHR$(148 
)" {GIU'}{SIN}"CHR$(148)" 
{GIU'}{SIN}"CHR$(148)" 

{GIU'}{SIN}"CHR$(148)" 

{GIU'}{SIN}" 

1040 POKESID+1,CO*2+1:POKES4,33: 
POKES4,32:NEXT 


1050 FORI=lTOl7:PRINT"{HOME} 

{GIU'} "CHR$(20)"{GIU'} "CH 
R$ (20)"{GIU'} "CHR$(20)" 
{GIU'} "CHR$(20)"{GIU*} " 
1060 POKESID + 1,CO*2+20-1 :POKES4, 
33 :POKES4,32 :NEXT:NEXT 
1070 FORI=lT09 

1075 PRINT"{HOME}{GIU’}"CHR$(148 
)" {GIU’}{SIN}"CHR$(1 48)" 
{GIU'}{SIN}"CHR$(148)" 

{GIU'}{SIN}"CHR$(1 48) " 

{GIU'}{SIN}" 

1080 NEXT 

1090 POKESID+1,60 

1100 FORJ=15TOlSTEP-1 :POKE894,J: 

POKESID,J*10 :POKES4,33 
1110 SYS89 3 :POKES4,32 :POKESID + 24 
,J:NEXT:POKESID + 1,1 5:POKESI 
D+24,1 5 

1120 ZZ=1:RETURN 

1130 FORI = 893TO905:READA:POKEI,A 
: NEXT 

1140 PRINT"{HOME}{ 8 GIU'}{RVS}P 
UOI GIOCARE FRA 5 SECONDI.. 

Il 

• 

1150 DATA 169, 1, 162, 0, 157, 4 
0, 216, 232 

1160 DATA 224, 160, 208, 248, 96 

1170 FORI=49152TO49350:READA:CK= 
CK+A:POKEI,A:NEXT 
1180 PRINT"{HOME}{ 8 GIU'} 

{ 30 SPAZI}" 

1190 IF CKO29203 THEN PRINT"ERR 
OR IN DATA STATEMENTS!":POK 
E900,0 : END 
1200 RETURN 

1210 DATA169,0,141,199,192,173,1 
,220 

1220 DATA41 ,1 5,1 70,1 89,1 83,1 92,2 
40,3 

1230 DATA141,199,192,173,201,192 
,10,170 

1240 DATA165,251,157,205,192,165 
,252,157 

1250 DATA206,192,56,173,201,192, 
237,202 

1260 DATA192,16,3,24,105,128,10, 
1 70 

1 270 DATAI 89,205,192,133,253,189 
,206,192 

1 280 DATAI 33,254,1 69,32,1 45,253, 
238,201 

1 290 DATA1 92,1 73,201 ,1 92,1 6,5,1 6 
9,0 

1300 DATA141,201,192,169,230,141 
,0,212 

1310 DATA169,32,141,4,212,169,33 
,141 
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1 320 DATA4,212/169/214,145,251 ,2 
4,1 65 

1330 DATA251,133,253,165,252,105 
,212,133 

1340 DATA254,169,5,145,253,24,17 
3,199 

1 350 DATA1 92,16,1 3,1 01 ,251 ,1 33,2 
51 ,165 

1360 DATA252,233,0,133,252,76,13 
8,192 

1370 DATA101,251,133,251,165,252 
,105,0 

1 380 DATAI 33,252,24,165,251 ,133, 


253,165 

1390 DATA252,105,212,133,254,177 
,251,201 

1 400 DATA32,208,24,1 69,81 , 1 45,25 
1 ,1 69 

1410 DATA4,1 45,253,1 73,200,1 92,2 
40,8 

1 420 DATAI 62,0,134,162,197,162,2 
08,252 

1 430 DATA76,5,1 92,1 41 , 203,1 92,96 

,0 

1440 DATAO,0,0,0,41,217,1,0 
1450 DATA39,215,255,0,40,216,0,0 



Chi non conosce questo classico gioco?!? 
Questo programma ti offre l'opportunità di bat¬ 
terti in un estenuante partita a dama contro 
'il tuo computer VIC 20. 

Facendo partire il programma, la scacchiera 
verrà visualizzata sullo schermo con le pedine 
già al loro posto (quelle del VIC sono nere e le 
tue sono bianche). 

Quando è il tuo turno, dovrai digitare prima 
le coordinate della pedina da muovere, e poi 


100 DIMX(4),S(7,7):G=-1:X(0)*-99 
: PRI NT*' {BLK} {CLR } M 

101 SYS65517:IFPEEK(781)=40THENl 
03 

102 POKE36 8 79,59 :GOTOl10 

103 POKE53280,3 :POKE5328 1 ,3 

110 DATAI,0,1,0,0,0,-1,0,0,1,0,0 
,0,-1 ,0,-1 ,15 

120 A$="{ 19 SPAZI}":B$="{HOME} 

{ 12 GIU'}" 

130 FORX=0TO7:FORY=0TO7:READJ:IF 
J=15THEN150 

140 S(X,Y)=J:GOTOl 60 

150 RESTORE:READS(X,Y) 

160 NEXTY,X 2 PRINT”{CLR}"; 

170 FORX = 0TO7 2 FORY = 0TO7 2IFS(X,Y) 
>-1THEN200 


le coordinate che deve raggiungere; se inseri¬ 
sci dei dati illegali o errati, il computer non ne 
terrà conto e dovrai reinserir/i. 

Quando mangi una pedina, potrai effettuare 
una seconda mossa sulla pedina precedente- 
mente spostata, in modo da mangiare, se pos¬ 
sibile. altre pedine. 

Buona fortuna e stai molto attento perché il 
VIC è un ottimo giocatore. 


180 IFS(X,Y)=-lTHENFORA=-ITOISTE 
P 2 2 B = G 2 GOSUB 2102NEXTA 
190 IFS(X,Y)=-2THENFORA=-1TOlSTE 
P2 2 FORB = -1TOlSTEP2 2 GOSUB210 2 
NEXTB,A 

200 NEXTY,X2GOTO370 
210 U=X+A:V=Y+B2IFU<0ORU>7ORV<OO 
RV>7THEN260 

22Ó IFS(U,V)=0THENGOSUB270 2GOTO2 
60 

230 IFS(U,V)C0THEN260 
£40 U=U+A2V=V+B2IFU<OORV<OORU>70 
RV>7THEN260 

250 IFS(U,V)= 0THENGOSUB270 
260 RETURN 

270 IFV= OANDS(X,Y)=-1THENQ=Q+2 
280 IFABS(Y-V)=2THENQ=Q+5 
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290 IFY=7THENQ=Q-2 
300 IFY=OORU=7THENQ=Q+1 
310 FORC=-1TOlSTEP2:IFU+C<OORU+C 
>7ORV+G<0THEN350 

320 IFS(U+C,V+G)<0THENQ=Q+1:GOTO 
350 

330 IFU-C<0ORU-C>7ORV-G>7THEN350 

340 IFS(U+C, V+G)>0AND(S(U-C,V-G) 
=0OR(U-C=XANDV-G=Y))THENQ=Q- 
2 

350 NEXTC:IFQ>X(0)THENX(0)=Q:X(1 
)=X:X(2)=Y:X(3)=U:X(4)=v 
360 Q=0:RETURN 
370 IFX(0)=-99THENl040 
380 GOSUBl060 :PRINT"IO DA"X(1);" 
r"X(2)"A"X (3) ","X(4):X(0)=-9 
9 

390 FORXX=lT0400:NEXTXX 
400 IFX(4)=0THENS(X(3),X(4))=-2: 
GOTO420 

410 S(X(3),X(4))=S(X(1),X(2)) 

420 S(X(1),X(2))=0:IFABS(X(l )-X( 
3) ) 02THEN51 0 

430 S ( (X ( 1 ) +X (3))/2, (X(2) +X ( 4 ) ) / 
2) =0 

440 X=X(3):Y=X(4):IFS(X»Y)*-lTHE 
NB=-2 :FORA=-2T02STEP4:GOSUB4 
80 

450 IFS(X,Y)=-2THENFORA=-2T02STE 
P4 : FORB=-2T02STEP4:GOSUB480: 
NEXTB 

460 NEXTA:IFX(0)<>-99THENPRINT"A 
"X(3)", "X(4);:X(0)=-99:G0T04 
00 

470 GOTO510 

480 U=X+A:V=Y+B:IFU<0ORU>7ORV<0O 
RV>7THEN500 

490 IFS(U,V)=0ANDS(X+A/2,Y+B/2) > 
0THENGOSUB270 
500 RETURN 

510 PRINT"{BLK}{HOME}RIGA":PRINT 
"{BLK}{ 2 SPAZI}{<D>} 

{< 8 I>][<F>]":FORY=7TOOSTEP 
-1 :PRINTY;"{SIN}{RVS}[<K>] 
{OFF}"; :FORX=0TO7 
520 IFS(X,Y)=0THENIF(X+Y)/2=INT( 

(X+Y)/2)THENPRINT"{RVS} 
{OFF}"; :GOTO580 
530 IFS(X,Y)=0THENPRINT" "; 

540 IFS(X,Y)=1THENPRINT"{RVS}Q 
{OFF}";:GOTO580 

550 IFS(X,Y)=-lTHENPRINT"{RVS}W 
{OFF}";:GOTO580 

560 IFS(X, Y)=-2THENPRINT"*";:GOT 
0580 

570 IFS(X,Y)=2THENPRINT"{RVS}* 
{OFF}"; 


580 NEXTX:PRINT"{<K>}":NEXTY:PRI 
NT"{ 2 SPAZI} [<C>] {RVS} 

{< 8 I>]{OFF}[<V>]"SPRINT" 

{ 3 SPAZI}01234567 COL" 

590 GOSUBl060:PRINT"DA"; 

600 GETG$:IFG$=""THEN600 
610 IFG$<"0"ORG$>"7"THEN590 
620 E=VAL(G$)sPRINTE;","; 

630 GETG$:IFG$=""THEN630 
640 IFG$<"0"ORG$>"7"THEN590 
650 H=VAL(G$):PRINTH 
660 X=E:Y=H:IFS(X,Y)<=OTHEN590 
670 PRINT"A" ; 

680 GETG$:IFG$=""THEN680 
690 IFG$<"0"ORG$>"7"THEN670 
700 A=VAL(G$)SPRINTA;" 

710 GETGS:IFG$=""THEN71 0 
720 IFG$<"0"ORG$>"7"THEN670 
730 B=VAL(G$)sPRINTB 
740 X=A:Y=B 

750 IFS(X,Y)=0ANDABS(A-E)<=2ANDA 
BS(A-E)=ABS(B-H)THEN770 
760 GOTO590 
770 1=46 

780 S(A,B)=S(E,H):S(E,H)=0:IFABS 
(E-A) 02THEN91 0 
790 S((E+A)/2,(H+B)/2)=0 
800 PRINT"+A"; 

810 GETG$:IFG$=""THEN810 
820 IFG$=CHR$(13)THEN910 
830 IFG$<"0"ORG$>"7"THEN810 
840 Al=VAL(G$)SPRINTAI 
850 GETG$:IFG$=""THEN850 
860 IFG$=CHR$(13)THEN910 
870 IFG$<"0"ORG$>"7"THEN850 

880 Bl=VAL(G$):PRINTBl 
890 IFS(AlfBl) OOORABS (Al - A) 020 
RABS (Bl -B) 02THEN800 
900 E=A:H=B:A=A1:B=B1: 1 = 1 + 15:GOT 
0780 

910 IFB=7THENS(A,B)=2 
920 PRINT"{HOME}{ 11 GIU'} 

{ 3 DES }01 234567 COL" 

930 PRINT"{ 2 SU}{ 2 SPAZI}[<C>] 
{RVS}[< 8 I>){OFF}{<V>} 

{ 2 SU}" 

940 FORY=0TO7:PRINTY;"{SIN}{RVS} 

{<K >] {OFF}";:FORX = 0TO7 
950 IFS(X,Y)=0THENIF(X+Y)/2=INT( 
(X+Y)/2)THENPRINT"{RVS} 
{OFF}";: GOTO1010 

960 IFS(X,Y)=0THENPRINT" ";:GOTO 
1010 

970 IFS(X,Y)=1THENPRINT"{RVS}Q 
{OFF}";: GOT01010 
980 IFS(X,Y)=-1THENPRINT"{RVS}W 
{OFF}";: GOTO1010 

990 IFS(X,Y)=-2THENPRINT"*"; :GOT 
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1030 GOTO170 

1 040 GOSUB1 060:FORI = 1T044 :PRINT" 
Z"; :FORJ =1TO50 :NEXT:NEXT 
1050 PRINT"{ 6 SPAZI}HAI VINTO!" 
: END 

1060 PRINTB8 

1070 FORXX = lT08:PRINTA$:NEXTXX : P 
RINTB$: RETURN 


01 01 0 

1 000 IFS(X,Y)= 2THENPRINT"{RVS}* 
{OFF}"; 

1010 NEXTX:PRINT"[<K>]{ 2 SU}":N 
EXTY 

1020 PRINT"{HOMEjRIGA":PRINT" 

{ 2 SPAZI} [<D>] [< 8 I>1 
[<F>]{ 2 SU}" 




1 

K 


il 





Annunci 





Questo programma permette di ingrandire ì ca¬ 
ratteri del VIC. rendendoli alti il doppio di quelli 
standard. 

Facendo partire il programma, vi sarà richie¬ 
sto il titolo dei vostri annunci; subito dopo do¬ 
vrete digitare il loro colore e quello dello scher¬ 
mo e del bordo (da ricercare nel manuale). 
Fatto ciò dovrete scegliere quanti annunci de 
vono apparire, in sequenza, sullo schermo 
(max. 4) e. poi. dovrete digitarli sulla tastiera 


1 PRINT"{CLR}{GIU'} ATTENDERE, P 
REGO.... ":POKE56,24:CLR 

2 D=6144:E=76?8:F=34816 

3 Z=0:FORN=DTOESTEP2 

4 POKEN,PEEK(F+Z):POKEN+1,PEEK(F 

+ Z) 

5 Z = Z +1 :NEXTN 

10 POKE36869,242 

20 PRINT"{CLR}{ 2 GIU'jDIGITA LA 
TESTATA{ 6 SPAZI}(22-CARATTE 
RI MAX.)?" :INPUTH5 

22 PRINT"{ 2 GIU'}":GOSUB800:PRI 
NT" COLORE DELLA TASTATA ":IN 
PUTHC 

30 PRINT"{CLR}{ 2 SPAZI INUMERÒ D 
I ANNUNCI :{ 9 SPAZI}(4 MAX.)" 
:INPUTNE:IFNE>4THEN30 

31 POKE36869,240 

32 PRINT"{CLR}{ 2 SPAZI}USA LA T 
ABELLA NEL{ 2 SPAZI}{GIU’} MA 
NUALE D 1 ISTRUZIONI,{GIU'} 


(stando attenti a non superare gli 88 caratte¬ 
ri. quattro linee). 

Quando avrete terminato questa ultima ope¬ 
razione, vi basterà premere un tasto qualsiasi 
per dare il via alla visualizzazione dei messaggi. 
Se desiderate modificare in qualche sua parte 
uno deli annunci, vi basterà premere 
Un ultimo avvertimento: non inserite o 
nei vostri messaggi, perché essi non verranno 
memorizzati correttamente dal computer. 


{ 2 SPAZI}E SCEGLI IL COLORE 
{ 2 SPAZI}" 

33 PRINT"{ 2 SPAZI}DEL BORDO 

{ 2 SPAZI}E DELLO{ 2 SPAZI} 
{GIU 1 }{ 7 SPAZI}SCHERMO; 

{ 7 SPAZI}{GIU'}{ 2 SPAZI}NSE 
VUOI IL COLOREM" 

34 PRINT"{ 2 SPAZlT[<G>] 

{ 18 SPAZI}(<G>]{ 2 SPAZI}MAT 
TUALE DIGITA 0.N ":INPUTBK:IF 
BK=OTHENBK=PEEK(36879) 

40 DIME$(4):DIMC%(4) 

50 FORN=ITONE 

60 POKE36869,242:PRINT"{CLR}ANNU 
NCIO #"N 
70 INPUTE?(N) 

80 GOSUB800 

85 INPUT"{ 2 GIU'}COLORE";C%(N) 
90 NEXTN 

100 PRINT"{ 4 SPAZI}PREMI UN TAS 
TO{ 4 SPAZI}{GIU'} 

{ 5 SPAZI}PER INIZIARE 
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{ 5 SPAZI}{GIU'}l 2 SPAZI}LA 
VISUALIZZAZIONE" 

101 PRINT"{GIU*}{ 3 SPAZI{PREMEN 
DO ’-'PUOl{ 3 SPAZI}{GIU'}CO 

RREGGERE GLI ANNUNCI" 

105 GETA$:IFA$ = ""THENl05 
150 REM VISUALIZZAZIONE DEI MESS 
AGGI 

160 POKE36 8 69,2 54 :POKE36 8 67,2 5 

170 POKE36879,BK 
200 FORN=ITONE 

210 POKE646,HC:PRINT"{CLR}"TAB(1 
1 -(LEN(H$))/2)H$ 

21 5 D = 0 

220 PRINT"{GIU’}":POKE646,C%(N) 
230 FORZ=1TOLEN(E$(N)):PRINTMIDS 
(E$(N),Z,1); 

235 D=D+1:IFD=22THEND=0:PRINT 
240 FORP=1TOl00 :NEXT 
250 GETA$ : I FA$ = " «-"THEN400 
260 NEXTZ 

270 FORP=1T04E3:NEXTP,N:GOTO200 
400 REM CORREZZIONE 
405 POKE36869,242:POKE36867,174: 
POKE36879,27 

410 PRINT"{CLR}{BLUjVUOI AGGIUNG 
ERE ALCUNI{ 4 SPAZI{ANNUNCI 
(S/N)?" 

412 GETA$:IFA$="N"THEN450 


414 IFA$ = "S"THEN 4 2 0 

41 5 GOTO412 

420 IFNE=4THENPRINT"NON CE NE ST 
ANNO PIU'!":FORP=lT02E3:NEXT 
:GOTOl60 

421 NE=NE+1 

422 PRINT"ANNUNCIO #"NE :INPUTE$( 
NE) 

425 GOSUB800:PRINT"{GIU’{COLORE" 
:INPUTC%(NE) 

430 GOTO160 

450 FORN=lTONE:PRINT"{CLR}#"N:PR 
INTE$(N):PRINT"COLORE=";C%(N 
);"{ 3 GIU’}" 

455 PRINT"{ 3 SPAZI{CORREGGI ? ( 
S/N) " 

457 GETA$:IFA$="N"THEN470 

458 IFA$ = "S"THEN 460 

459 G0T0457 

460 PRINT"{ 2 SPAZI{ANNUNCIO COR 
RETTO:":INPUTES(N):PRINT"COL 
ORE":INPUTC%(N) 

470 NEXT:GOTO!60 

800 PRINT"{ 2 GIU 1 }0 = NERO":PRI 
NT"1 = BIANCO":PRINT"2 = ROS 
SO":PRINT"3 = CIANO" 

802 PRINT"4 = PORPORA":PRINT"5 = 
VERDE":PRINT"6 = BLU":PRINT 
"7 = GIALLO" 

805 RETURN 


Devastator 



ì K. RAM + |Oyst«ck 


Se/ il comandante della 'Ct ispi ’ ' e devi distrug¬ 
gere le dieci orde di alieni che hanno i'inten 
none di distruggere la terra. 

Con il mirino del tuo cannone laser devi cen¬ 
trare gli alieni, c per fare fuoco devi premere 

programma I 

100 PRINT"{CLR}":PRINT" 

{ 6 GIU*}ATTENDERE, PREGO... 

«I 

• • • 

105 PRINT"{ 3 GIU*}DEFINIZIONE C 
ARATTERI." 


il pulsante di fuoco del Joystick, che ti permet 
te di muovere il mirino stesso. 

Se entro 30 secondi dalla partenza non sarai 
riuscito a distruggere tutte c dieci le orde di ufo. 
essi dirigeranno il loro laser sulla terra e lo di 

o 

struggeranno. 


110 POKE52,28 :POKE56,28 :CLR 
120 FORI=7168T07679:POKEI,PEEK(I 
+25600):NEXT 

130 FORJ=lT022:READC:FORI=0TO7:R 
EADD:POKEC+I,D:NEXT:NEXT 
140 POKE36869,255:POKE36879,10:P 
RINT"{CLR}{ 9 DES}{BLU}ABCD 
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{GIU'}{ 4 SIN}IJKL" 

145 PRINT"{ 4 GIU'}{RVS}{GRN} 

{ 6 SPAZIJDEVASTATOR":FORT=l 
TO1000 :NEXT 

150 PRINT"{HOME}"TAB(A)" 

{ 7 GIU'} {YEL}MNO{GIU'} 

{ 4 SIN} UVW":A=A+1:IFA> = 1 9T 
HENGOTO200 

160 POKE3687 8,1 5:POKE36874,255: P 
OKE36877,1 2 8 :POKE3687 8,0 :GOT 
01 50 

200 REM 

210 PRINT"{WHT}{GIU'}{RVS} 

{ 3 SPAZI}PREMI 'PLAY' SUL 
{ 3 SPAZI{REGISTRATORE E ATT 
ENDI{BLK}" 

305 S$="LO"+CHR$(34)+CHR$(34)+", 
1 :"+CHR$ (1 31 ) 

307 REM CAMBIA 1 CON 8 NELLA LIN 
EA 305 E CANCELLA LA 210 SE 
USI IL DISCHETTO 

310 FORI=1TOLEN(S$):POKE630+I,AS 
C(MID$(S$,1)):NEXT:POKEl98,1 
: END 

1000 DATA7176,255,255,253,255,12 
7,127,127,127 

1100 DATA7184,254,254,254,127,25 
5,255,255,255 

1 200 DATA71 92,0,0,1 99,231 ,239,23 
9,1 95,1 29 

1300 DATA7200,63,63,1 59,207,254, 
254,252,252 

1 400 DATA7240,63,35,49,1 7,1 1 ,7,1 
,0 


programma 2 

0 TI$="000000":SC=0:T$="000020" 
10 V=36878:S4=36877:POKE36879,10 
:L=7888:PRINT"{CLR}"; 

20 PRINT"{WHT} { 2 SPAZI}. 

{ 3 SPAZI}.{ 2 SPAZI}{BLU}ABC 
D{WHT} .{ 5 SPAZI}. 

{ 4 SPAZI}.{ 5 SPAZI}{BLU}IJK 
L{WHT}{ 4 SPAZI}.{ 11 SPAZI} 

.{ 4 GIU' }"; 

60 PRINT".{ 12 SPAZI}. 

{ 12 SPAZI}.{ 11 SPAZI}. 

{ 4 SPAZI}.{ 8 SPAZI}. 

65 PRINT"{ 54 SPAZI).{ 2 SPAZI} 
.{ 4 SPAZI}.{ 4 SPAZI}. 

{ 2 SPAZI}" 

70 J=1:PRINT"{BLU}@@@@@@@@Q 

{ 4 SPAZI}P@@@@@@@@{PUR}@@@@@ 
@@Q{BLU}@{ 4 SPAZI}@{PUR}P@@@ 
@@@@@@@@@@Q@{BLU}@{ 4 SPAZI} 
@{PUR}@P@@@@@@"; 

100 PRINT"@@@@@Q@@{BLU}Q@@@@P 


1500 DATA7248,255,255,255,255,25 
5,255,255,63 

1 600 DATA7256,1 29,1 ,3,1 31 ,1 31 ,1 9 
9,207,220 

1700 DATA7264,252,248,248,240,24 
0,224,128,0 

1800 DATA7208,0,15,59,245,123,31 

, 0,0 

1 900 DATA721 6,0,255,1 89,90,1 89,2 
55,0,0 

2000 DATA7224,0,240,220,1 75,220, 
240,0,0 

2010 DATA7272,96,192,160,16,9,6, 
31,245 

2020 DATA7280,32,112,80,248,108, 
151,111,250 

2030 DATA7288,48,24,40,64,128,0, 
192,248 

2040 DATA7336,63,15,7,8,16,160,1 
92,96 

2050 DATA7344,255,255,39,32,1 12, 
136,136,112 

2060 DATA7352,240,1 92,0,1 28,64,4 
0,24,48 

2070 DATA7360,8,16,41,7,61,31,17 
,35 

2080 DATA7368,16,8,148,224,188,2 
48,8,132 

2090 DATA7168,255,255,255,255,25 
5,255,255,255 

3000 DATA7296,127,191,223,239,24 
7,251 ,253,254 

3010 DATA7304,254,253,251,247,23 
9,223,191,127 


{pur}@@p@@@@@@@@@q@@q@@@@@@p 

@@p@@@@{blu}@@@q{pur}@@q@@@@ 

@@@@P@@{BLU}P@@@"; 

1 30 PRINT"@@Q@{PUR}@Q@@@@@@@@@@P 
@{BLU}@P@@@Q@@{PUR}Q@@ @@@@@@ 
@@@@P{BLU}@@P@Q@@Q@@@@@@@@@@ 
@@@@P@@P"; 

140 PRINT"{PVS}{YEL}{ 2 DES}DEVA 
STATOR SC:" SC ;:IFTI$=>"00003 
0"THEN2000 

1 50 GOTO80 0 

160 J=2:PRINT"{BLU}@@@@@@@@Q 

{ 4 SPAZI}P@@@@@@@@@@@@@@@Q@ 
{ 4 SPAZI}@P@@@@@@@@@@@@@Q@@ 
{ 4 SPAZI}@@P@@@@@@{PUR}@@@" 

9 

190 PRINT"@@Q{BLU}@@Q@@@@P@@ 
{PUR}P@@@@@@@@@Q@{BLU} 

@@P@{PUR}@P@@@@@@@Q@@{BLU}q@ 
@@@@@@@P{PUR}@@P@@@@@Q@@Q"; 
220 PRINT"@@@@@@(a@@@P@@P@@ {BLU}@ 
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q{pur}@@q@@@@@@@@@@@@p@@ 

{BLU}P@Q@{PUR}@Q@@@@@@@@@@@@ 
@ @P@ {BLU}@P";:GOTO800 
250 J=3:PRINT"{PUR} 

{ 4 SPAZI}P@@@@@@@@{BLU} @@@@ 
@@@Q{PUR}@{ 4 SPAZI} @ {BLU}P@ 

{ 4 SPAZI} @ {BLU}@P@@@@@"; 

280 PRINT"{PUR}Q@@@ @P 
{BLU}@@P@@@@@{PUR}@@@ @Q{BLU} 
@@Q@@@@@@P@@{PUR}P@@@@@@@Q@ 
{BLU}@Q@@@@@@@@P@{PUR}@P@@@" 

9 

320 PRINT"@@Q@@{BLU}Q@@@@@@@@@@P 
{pur}@@p@@@q@@q@@@@@@@@@@@@p 
@@P@{BLU}Q{PUR} 
@@@@P@@{BLU}P"; 

330 GOTO800 

350 J=4:PRINT"{PUR} 

{ 4 SPAZI}P@@@@@@@@@@@@@@@Q@ 
{ 4 SPAZI}@P@@@@@@@{BLU}@@@@ 
@@Q{PUR}@@{ 4 SPAZI}@@{BLU}P 
@@@@@@@" ; 

380 PRINT"{PUR}@Q@@@@P@ 

{BLU}@P@@@@@@@@@Q@@{PUR}Q@@@ 
@@@P{BLU}@@P@@@@@@@Q@@Q@@@@@ 
@@@P@@P@@@{PUR} @@Q {.BLU } @" ; 
420 PRINT"@Q@@@@@@@@@@P@@{PUR}P@ 
@@Q@{BLU}@Q@@@@@@@@@@@@P@ 

{PUR}@P@Q@@{BLU}Q@@@@@@@@@@@ 
@@@P{PUR}@@P"; : GOTO800 
500 F=INT(RND(.)* 9) :IFTI$>=T$THE 
Ni 800 

510 PRINTTAB(F)"{ 6 SU} 

{ 4 SPAZI}MNO{ 19 SPAZI}UVW 
{ 34 SPAZI}"; 

515 PRINT"{ 36 SPAZI}":RETURN 
520 Y=INT(RND(.)*3) :PRINTTAB(Y+F 
)"{ 6 SU}{ 22 SPAZI}";:IFTI$ 
>=T$THENl900 

530 PRINT"{WHT}{ 8 SPAZI}XY 
{ 64 SPAZI}"; 

535 PRINT"{ 3 SPAZI}":RETURN 
800 POKEV,5 :POKES4,140 :POKEV,0 :P 
RINT"{ 11 SU}" 

1000 POKE371 54,127:A=(PEEK(371 37 
)AND28)OR(PEEK(371 52)AND 1 28 
):A=ABS((A-100)/4)-7 
1005 POKE37154,255:IFA=7THENl080 

1010 ONAGOTO1015,1016,1017,,1018 
,1019,,,,,1020,1021,1022 

1015 R=R+21:GOTOl080 

1016 R=R-23:GOTOl080 

1017 R=R-1:GOTOl080 

1018 R=R+22:GOTOl080 

1019 R=R-22:GOTOl080 
1 020 R=R+1: GOTO1080 
1021 R=R-21iGOTOl080 


1022 R=R+23:GOTOl080 
1080 IFR<-44THENR=-44 
1085 IFR>44THENR=44 
1100 ONJGOSUB500,520,500,520 
1110 POKEL+R,219 :B=PEEK(37137)AN 
D32:IFBTHENONJGOTOl60,250,3 
50,70 

1120 IFPEEK((L+R)-1)=130RPEEK((L 
+R)-1)= 21ORPEEK((L+R)-1)=24 
THENl130 

1125 IFPEEK((L+R)+1)=250RPEEK((L 
+R)-1)=5THENl130 
1128 ONJGOTOl60,250,350,70 
1130 POKES4,220:FORS=8TO255STEP5 
:POKE36879,S:POKEV,4 :POKEV, 
0 :NEXT:SC=SC+10:GOTOl0 
1800 PRINTTAB(F)"{ 4 SU}{YEL} 

{ 4 SPAZI}EFG{ 48 SPAZI}":R 
ETURN 

1900 PRINTTAB(Y+F)"{YEL} 

{ 3 SPAZI}EFG{ 51 SPAZI}"; 
1905 PRINT"{ 20 SPAZI}":RETURN 
2000 IFSC>=100THENPRINT"{HOME} 

{ 4 GIU'}{ 6 SPAZI}{RVSjHAI 
VINTO!1":POKEV,9:F0RT=lT05 
00:NEXT:GOT03000 
2005 PRINT"{RVS}{ 10 SU} 

{ 3 SPAZI}N{SU}N{SU}N{SU} 
{sin}m{su}Tsin}n{su}n{su}n 
{su}nTsin}{su}mJsin}Tsu}n 
*{su }N" 

2010 PRINT"{HOME}{RVS} 

{ 4 SPAZI}1<C>)[<F>) 

{< 6 B>} [<D>] [<C>] 

{ 2 SPAZI}(<C>]{ 2 SPAZI} 
[<F>] { 2 SPAZI} 1<D>] [<F>] 

[< 4 B>]{ 2 SPAZI}[<F>] 

[<D>] { 3 SPAZI}[<C>]" ; 

2020 PRINT"{ 7 SPAZI}[<D>] 

{SPAZI } [<D>1 {SPAZI } [<(?>] 
FORT=l5TOOSTEP-1 :POKEV,T:FO 
RL=1TO10 0 :NEXTL:NEXTT 
2030 PRINT"{RVS}{RED}{ 2 SPAZI} 
LA TUA MISSIONE E' 

{ 2 SPAZI}{GIU'}{ 5 SPAZI} 
FALLITA{ 2 SPAZI}!! 

{ 6 SPAZI}{GIU'}LA TERRA E' 
DISTRUTTA!" 

2040 POKEl 98,0:PRINT"{RVS}PREMI 
•Fi' PER GIOCARE" 

2050 GETP$:IFP$=""THEN2050 
2060 IFP$="{Fi}"THEN0 
2070 IFP$<>"{Fl}"THEN2050 

3000 FORT=81 64T07856STEP-1:M=INT 
(RND(.)* 4) :B=INT(RND(1)*2) : 
POKEV,M:POKET,2 51+B:NEXT 
3010 PRINT"{RVSDEVASTATORI DEST 
RUTTI !" :POKEV,0:GOT02040 
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Guida all’input dei programmi sullo ZX Spectrum 


Le " parole" comprese tra pcrcntesi graffe indicano i caratteri grafici pre- 
definiti (G). il tosto (rumor?.seguente laG). la necessità di premere •/ tosto 
insieme a CAPS SHIFT (eventuale 5 precedente la G) e il numero 0. ripeti¬ 
zioni del tasto richieste (eveótuo'e numero all'inizio de'la "parola"). I ca¬ 
ratteri grafici definiti dal programma sono mvtCc instati da lettere maiu¬ 
scole (corrispondenti al tasto da usare) sottolineate. 


Quando leggete Premete 


Vedrete 


{Gl} 

{G 2} 

{G 3} 

{G 4} 

{G 5} 
[G6} 
{G7} 
(G8J 
{SG1} 
{SG2} 
{SG3} 
{SG4} 
{SG5} 
{SG6} 
{SG7} 
{SG8 } 
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ntfc C 

Medili « 


Quando leggete Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 


St no-t »«•» 
|>) m rrto*r 
C 

*<.f *< tif *o 
n***n«n« 

t aps Shinr 

* » 


Simbolo grafico 
definito nel 
programma in uso. 
• 


s« ««>•«.• 
nei m' 
!~^o4c C 

»f» «CC A.C t 


Guida per l’input dei programmi versioni VIC IO e €64 


Notate che i listati contengono “parole" rac¬ 
chiuse tra parentesi graffe { }. Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico “solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare ì listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 
{HOME} 
{SU} » 
{GIU'} 
{SIN} 
{DES} 

{ RVS } 
{OFF} 

{BLK } 

{ wht} 

{RED} 


SHIFT 
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SKiF» 


lì CRSR li 

■■a 


BH 


fi CRSR Ij 



SHIFT 
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CIRI 
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CTRl 

lo 


IO 

CTRl 

in 



CTRl 
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□ 


Q 


II 



E 


e 


{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 
[<1>] 
(< 2 >} 

[<3>] 

[<4>J 

[<5>] 

[< 6 >] 


CTRl 



HO 
□ □ 
QQ 

□ O 

□ □ 
□ □ 



[< 7 >] 

m 

l< 8 >] 

□ 

{FI} 

Q 

{F 2 } 

Sì 

{F 3 } 

□ 

{F 4 } 

15 

{F 5 } 

3 

{F 6 } 


{ F 7 } 

E 

■1 

{F 8 } 
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IL TELEFONO È 02-437.385 



IN MILANO - VIA MASCHERONI, 





















































